Funktion nach except Block nicht verlassen

[danielA]

Hallo Nochmal

Delphi-Quellcode:

procedure Meinform.ConnectServer();
var i : integer;
begin
  for i:=0 to WriteServer.Count-1 do
  begin
    try
      TIbDatabase(WriteServer[i]).Connected:=True; // WriteServer ist ein TListObjekt
    except
    end;
  end;
  ReadServer.Connected:=true;   // <--- hier kommt er nie an wenn einer der Server down ist
  ...                           // Fehler: I/O Error for File "MeineDatenbank" 
                                //         Error while trying to open file 
                                //         Das System kann die angegebene Datei nicht finden.
end;

Gruß und danke

Daniel