try-except-finally

Hej eksperter!

Jeg sad med et det problem at jeg skulle lave noget i den her retning:

procedure FilTing(InFilS, OutFilS: String);
var
  InFil, OutFil: file;
begin
  FileMode := 0;
  AssignFile(InFil, InFilS);
  Reset(InFile, 1);

  FileMode := 2;
  AssignFile(OutFil, OutFilS);
  if FileExists(OutputFile) then
    Reset(ToFile, 1)
  else Rewrite(ToFile, 1);

  try
    repeat
      BlockRead(FromFile, Buf, SizeOf(Buf), NumRead);
      BlockWrite(ToFile, Buf, NumRead, NumWritten);
    until (NumRead = 0) or (NumWritten <> NumRead);

  finally
    CloseFile(InFile);
    CloseFile(OutFile);
  end;
end;

Det fungerede jo fint nok. Problemet var bare at jeg gerne ville opsnappe fejlen så brugeren ikke skulle udsættes for den. Altså noget i retning af:

  try
    ...
  except //for at opsnappe fejl
    ...
  finally
    ...
  end;

Men det kunne jeg så ikke. Jeg har løst problemet ved bare at bruge except og så sætte

  CloseFile(InFile);
  CloseFile(OutFile);

efter try except end;

Jeg vil dog gerne vide om det er muligt at bruge try-except-finally på en gang.

Er det det?