datei neu speichern, wenn nicht vorh.

[Udo]

Schreib in deine Routine halt noch ein "end" rein. Da fehlt wirklich eins.
Also

Delphi-Quellcode:

try
  ...
finally
  ...
end;