[Delphi 5] Odcitanie datumov

[XOR]

procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
DatCas : TTimeStamp;
begin
Present:= Now;
DatCas := DateTimeToTimeStamp(Present);
edit1.text := inttostr(DatCas.Date);
edit2.text := inttostr(DatCas.Time);
end;