EraseFile Fehler

[Doomguard]

Wow ! Danke , tatsächlch hatte ich die Datei beim Programmstart erstellt aber nicht wieder geschlossen

Hier der Code :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var person : File of personen;
  daten : personen;
begin
   AssignFile(person,'Person.dat');
   if FileExists('Person.dat') then
    ReSet(person)
  else
    ReWrite(person);
end;