function TIBConnectionBroker.GetConnection: TIBDatabase;
var
  gotOne: Boolean;
  OuterLoop: Integer;
  aloop: Integer;
  roundrobin: Integer;
begin
  result := nil;
  gotOne := false;
  for outerloop := 0 to 2 do
  begin
    try
      aloop := 0;
      roundRobin := FConnLast + 1;
      if (roundRobin >= FCurrConnections) then
        roundRobin := 0;
      CS1.BeginWrite;
      try
        repeat
          begin
            begin
              if (FConnPool[roundRobin].ConnStatus < 1) then
              begin
                if (FConnPool[roundRobin].Database.Connected) then
                begin
                  result := FConnPool[roundRobin].Database;
                  FConnPool[roundRobin].ConnStatus := 1;
                  FConnPool[roundRobin].ConnLockTime := now;
                  FConnLast := roundRobin;
                  gotOne := true;
                  DoLog(SIBBrokerGiveOut + IntToStr(roundrobin));
                  break;
                end;
              end
              else
              begin
                inc(aloop);
                inc(roundRobin);
                if (roundRobin >= FCurrConnections) then
                  roundRobin := 0;
              end;
            end;
          end;
        until ((gotOne = true) or (aloop >= FCurrConnections));
      finally
        CS1.EndWrite;
      end;
    except
      ///
    end;

    if (gotOne) then
    begin
      break;
    end
    else
    begin
      CS1.BeginWrite;
      try
        begin // Add new connections to the pool
          if (FCurrConnections < FMaxConns) then
          begin
            try
              CreateConn(FCurrConnections);
              Inc(FCurrConnections);
            except
              on E: Exception do
                DoLog(SIBBrokerUnavailable + e.Message );
            end;
          end;

          sleep(FDelay);
          DoLog(SIBBrokerExhausted + IntToStr(outerloop));
        end;
      finally
        CS1.EndWrite;
      end;
    end; // End of try 10 times loop
  end;
end;