Komisch, ich bin hier mit bisher immer ganz gut gefahren:
Delphi-Quellcode:
AssignFile(f, Filename);
{ if exits open it }
if FileExists(Filename) then
begin
//FileMode := fmShareExclusive;
Reset(f);
end
{ if not rewrite it }
else
begin
{$I-}
Rewrite(f);