[KristoferRuotsi]

вот так заработало:

Код:

     Form1.OraSession1.Connected:=False;

     try
     if Form1.OraSession1.Connected=False then
      begin
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas1';
       Form1.OraSession1.Server:='server';
      end;
     Form1.OraSession1.Connect;
     except
     end;

     try
     if Form1.OraSession1.Connected=False then
      begin
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas2';
       Form1.OraSession1.Server:='server';
      end;
     Form1.OraSession1.Connect;
     except
     end;

     try
     if Form1.OraSession1.Connected=False then
      begin
       Form1.OraSession1.UserName:='name';
       Form1.OraSession1.Password:='pas3';
       Form1.OraSession1.Server:='server';
      end;
     Form1.OraSession1.Connect;
     except
     end;