[KristoferRuotsi]

вариант с кучей ifов не подходит:

Код:

     if Form1.OraSession1.Connected=false then
      begin
       Form1.OraSession1.Connected:=false;
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas1';
       Form1.OraSession1.Server:='server';
       Form1.OraSession1.Connected:=true;
      end;
     if Form1.OraSession1.Connected=false then
      begin
       Form1.OraSession1.Connected:=false;
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas2';
       Form1.OraSession1.Server:='server';
       Form1.OraSession1.Connected:=true;
      end;
     if Form1.OraSession1.Connected=false then
      begin
       Form1.OraSession1.Connected:=false;
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas3';
       Form1.OraSession1.Server:='server';
       Form1.OraSession1.Connected:=true;
      end;

if проходит быстрее чем подключение и connected всегда =false
мне нужно более надежное решение