1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
var
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
  Datum    : TDateTime;      // Datum
  dd       :  Integer;       // Tag
  mm       :  Integer;       // Monat
  d1       :  String;        // Datum <10
  m1       :  String;        // Monat <10
  Today    :  String;        // aktuelles datum
begin
  datum:=now;
  DecodeDate(datum, Year, Month, Day);
  dd:= day;
  mm:= Month;
  if dd < 10 then d1:='0' else d1:='';
  if mm < 10 then m1:='0' else m1:='';
  today:=d1 + IntToStr(dd) + '.' + m1 + IntToStr(mm) + '.' + IntToStr(Year);
  edit1.text := today;
end;