File Acess Denied ???

[Luckie]

Code:

5 Access is denied. ERROR_ACCESS_DENIED

Mach die Dateivariable doch mal bitte lokal und achte mal darauf, ob du alle Dateivariablen auch wieder schließt.

Und wenn du schon so was baust:

Delphi-Quellcode:

  fehler := IOResult; 
  if fehler <> 0 then begin 
     ShowMessage ('Fehler vom Typ "'+inttostr(fehler)+'" aufgetreten !'); 
     exit; 
  end;

Dann mach es doch gleich richtig:

Delphi-Quellcode:

  fehler := IOResult; 
  if fehler <> 0 then begin 
     RaiseLastOSError();
     exit; 
  end;

Dann bekommst du den letzten aufgetretenen Systemfehler im Klartext.