Dateien und Exceptions

[SiouX]

Hallo,

trotz einiger Tutorials, komme ich mit Dateien & Exceptions nicht klar. z.B. ich möchte eine Datei einlesen. Wie schachtele ich da try.. except & try.. finally ?

Delphi-Quellcode:

procedure DateiEinlesen(Pfad: String; var Datensatz: String); 
begin
   AssignFile(Datei,Pfad);
   try
      try
       Reset(Datei);
       read(Datei, Datensatz);
      except
       showmessage('fehler beim lesen');
      end;
      closeFile(Datei); //sollte ich das nicht lieber mit try..finally behandeln? wo? wie kann ich das ganze sinnvoll schachteln?
   except
      showmessage('Kann Datei nicht öffnen');
   end;
end;

im Programm

Delphi-Quellcode:

DateiEinlesen(Dateipfad, Inhalt);
DoSomething(Inhalt); //(*1)

zu (*1) Wenn in DateiEinlesen Fehler aufgetreten sind, dann hat Inhalt evtl. keinen vernünftigen 'Inhalt'? Sollte ich daher DateiEinlesen als Funktion deklarieren mit einem booleschen Rückgabewert oder wird sowas auch durch exceptions verhindert?

Danke