...Datum und Zeit formatiert in einem String ausgeben?

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := FormatDateTime('d. mmmm yyyy  hh:mm:ss', Now);
end;