Funktion nach except Block nicht verlassen

[danielA]

Hallo nochmal,

Ich habs jetzt mal wie Mario beschrieben in mehrere Try...Except Blocks gesetzt jetzt funzt es.

Delphi-Quellcode:

procedure Meinform.ConnectServer(); 
var i : integer; 
begin 
  for i:=0 to WriteServer.Count-1 do 
  begin 
    try
      try
        try 
          TIbDatabase(WriteServer[i]).Connected:=True; // WriteServer ist ein TListObjekt 
        except 
        end; 
      except 
      end; 
    except 
    end; 
  end; 
  ReadServer.Connected:=true;   
  ... 
end;

Er landet dann komischerweise, wie es sein muß, immer nach dem ersten except.
Naja, nicht schön aber der Code nach der Exception wird wenigstens ausgeführt.
Nochmal danke für die Antworten

Gruß
Daniel