var
  T1, T2: TDateTime;
begin
  Screen.Cursor:=crHourGlass;
  T1:=Time;
  try
    try
      if ADOConnection1.Connected then
        ADOConnection1.Close;
      //ADOConnection1.CommandTimeout:=StrToInt(medtCommand.Text);
      //ADOConnection1.ConnectionTimeout:=StrToInt(medtConnection.Text);
      ADOConnection1.Open(UserId,Password);
    except
      on E: Exception do
      begin
        T2:=Time;
        MessageBox(Application.Handle,
          PChar('Не могу присоединиться к базе'# 13 # 10 +E.Message+# 13 # 10 +
          'CommandTimeout   ='+IntToStr(ADOConnection1.CommandTimeout)+# 13 # 10 +
          'ConnectionTimeout='+IntToStr(ADOConnection1.ConnectionTimeout)+# 13 # 10 +
          'Время реакции    ='+TimeToStr(T2-T1)), PChar(Caption),  MB_ICONERROR);
      end;  //on Exception
    end; //try except
  finally
    Screen.Cursor:=crDefault;
  end; //try finally