try .. except .. finally

[Surrounder]

Warum kann ich eigentlich wenn ich einen try benutze nicht einen except und ein finally verwenden?

Ich schreibe in eine Datei die auch schreibgeschützt sein kann, und dann kommt es zu einem Fehler. Ich würde gerne wenn es zu dieser Exception kommt eine Meldung in mein Logfile schreiben, aber dann trotzdem im finally das File wieder schließen.

Momentan gehe ich einfach her und mache zwei try hintereinandern, mich würde nur interessieren ob mir jemand sagen kann warum try .. except .. finally als ganzes nicht geht?!?

Delphi-Quellcode:

var
   ppFile : TNativeXML;
   node : TXMLNode;
begin
   try
      try

         ppFile := TNativeXml.CreateName('xyz');

         node := ppFile.Root.NodeNew( 'test123' );
         with node do begin
            WriteString( 'x', x);
            WriteInteger( 'y', y);

         end;

      except
         AddLogAlert( 'Fehler' );
      end;
   finally
      ppFile.Free;
   end;
end;