Funktion nach except Block nicht verlassen

[danielA]

Ich hab jetzt ne Möglichkeit gefunden aber wirklich gefallen tut sie mir nicht.

Delphi-Quellcode:

procedure Meinform.ConnectServer(Posi : integer = 0); 
var i : integer; 
begin 
  for i:=Posi to WriteServer.Count-1 do 
  begin 
    try 
      TIbDatabase(WriteServer[i]).Connected:=True; // WriteServer ist ein TListObjekt 
    except 
      ConnectServer(i+1);  
    end; 
  end; 
  ReadServer.Connected:=true;   // <-- hier kommt er im Fehlerfall nicht hin 
  ... 
end;

Damit wird das nach der Schleife genau einmal aufgerufen egal wie oft der Fehler auftritt.