procedure TForm1.Button1Click(Sender: TObject);
var
 TelOLE: OLEVariant;
begin
 TelOLE := CreateOleObject('TelOLE.TelOLEclass');
 try
   TelOLE.TestConnect;
 finally
   TelOLE := Unassigned;
 end;
end;

//проверка связи
function TDMPaymCartel.TestConnect: boolean;
begin
   result := false;
   ShowMessage('1'); // !
   idHTTP1.Host := CartelURL;
   ShowMessage('2'); // !
   try
     if not idHTTP1.Connected then
       idHTTP1.Connect(10000);
     ShowMessage('3');
     idHTTP1.Disconnect;
     ShowMessage('4');
     result := true;
   except
     ShowMessage('5'); // !
     Raise Exception.Create('Не удалось установить соединение');
   end;
   ShowMessage('6');
end;