MyString := FormatDateTime('dd-mm-yyyy', MyDateTime);
procedure TForm1.Button1Click(Sender: TObject); var MyString: string; MyDateTime: TDateTime; begin MyDateTime := Now; MyString := FormatDateTime('dd-mm-yyyy', MyDateTime); Label1.Caption := MyString; end;