[delphi.com.ar]

El TAdoConnection, tiene una opción "coAsyncConnect", podrías hacer algo como:

Código Delphi [-]
begin
  ADOConnection.ConnectOptions := coAsyncConnect;
  ADOConnection.Open;

  {
    Si desde un evento externo pones FCancel := True
    se tendría que cancelar el intento de conexión
  }
  FCancel := False;

  repeat
    Application.ProcessMessages;
    if FCancel then 
    begin
      ADOConnection.Cancel;
      Break;
    end;
  until not (stConnecting in ADOConnection.State);
end;

Saludos!