Datum als int DDMMYYYY ausgeben

ich versuche das heutige Datum folgendermaßen auszugeben
DDMMYYYY ohne , . dazwischen, also als INT:

Code:

			procedure TForm1.Button1Click(Sender: TObject);

var

  Present: TDateTime;

  Year, Month, Day, Word;

 begin

  Present:= Now;

  SysUtils.DecodeDate(Present, Year, Month, Day);

  end;

Edit2.Text := IntToStr(Day) + IntToStr(Month) + InTtoStr(Year);

habe ein kleines Edit2. - fenster wo ich dann das Datum in folgender Form haben will: DDMMYYYY
bei mir steht beim ausführen jedoch in dem kleinen Fenster nur 004096
DAY hat wert 0 , MONTH den wert 0 und YEar den wert 4096, WARUM ? ? was mach ich falsch?

was hat es mit dem Word auf sich?
habe den code zum teil von

http://docwiki.embarcadero.com/CodeE...e_%28Delphi%29

Datum als int DDMMYYYY ausgeben

Datum als int DDMMYYYY ausgeben

Forumregeln