System Delphi

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