...format date and time using the format given by a Format?

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