[[Lepe]]

Yo intuyo que sería así:

Código Delphi [-]
try
    IBQuery1.Open;
    IBQuery2.Open;
    IBQuery3.Open;
    IBQuery4.Open;
except
  IBDatabase1.ForceClose;
end;
IBDatabase1.Connected := true; // ahora conectamos de nuevo, y abriríamos de nuevo las consultas.

Porque con tu código, siempre hará un ForceClose, ¡¡ siempre !!

Con este código, solo ejecutará el ForceClose si hay algún tipo de error (sea cual sea) al abrir cualquiera de las 4 consultas.

Saludos