Frage zu TFileStream

[perle]

Hallo, ich möchte gerne ein Datum ans ende meiner Datei hängen aber es will nicht so recht klappen, aber warum nicht?


Dies hier wird von einer zweiten exe ausgeführt :

Delphi-Quellcode:

begin
  with TFileStream.Create('test.exe',fmOpenWrite) do
  begin
    Seek(-SizeOf(TDateTime),soFromEnd);
    Write(Now, SizeOf(TDateTime));
    Free;
  end;
end;

und dann zum auslesen direkt in der test.exe

Delphi-Quellcode:

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

Rufe ich die test.exe auf, bevor ich da was reingeschrieben hab, dann zeigt mir das showmessage : 30.12.1899 an....ist ja auch klar, weil am ende der Datei nur nullen stehen.
Schreibe ich aber was dran und führe das Programm dann nochmal auf gibts "Ungültige Gleitoperation". Aber was mache ich falsch?