Frage zu TFileStream

[perle]

danke für die Vorschläge, leider hat es zu keinem brauchbaren Ergebnis geführt...hier noch die genauen Codes :

Delphi-Quellcode:

  with TFileStream.Create('Project18.exe',fmOpenWrite) do
  begin
    Try
      Seek(SizeOf(TDateTime), soFromEnd);
      Write(Now, SizeOf(TDateTime));
    Finally
      Free;
    End;
  end;

und

Delphi-Quellcode:

var
  myDate : TDateTime;
begin
  with TFileStream.Create('Project18.exe',fmShareDenyNone) do
  begin
    Seek(SizeOf(TDateTime),soFromEnd);
    Read(myDate,SizeOf(TDateTime));
    Free;
  end;
  Showmessage(DateTimeToStr(myDate));
end;

Jetzt gibt es zwar keinen Fehler mehr, allerdings bekomm ich immer : 30.12.1899 ausgegeben