Probier's mal mit except statt finally.
Ich hab mal folgenden Code probiert:
Delphi-Quellcode:
var
f:file;
begin
try
erase(f);
erase(f);
finally
showmessage('fertig');
end;
end;
Zuerst zeigt er die Meldung FERTIG und dann eine Fehlermeldung.
Wenn ich
Delphi-Quellcode:
var
f:file;
begin
try
erase(f);
erase(f);
except
showmessage('fertig');
end;
end;
nehme, zeigt er nur FERTIG.