[lmikle]

Ну, если не ошибаюсь, то connect в данном коде просто осуществляет HTTP запрос по указанному адресу и возвращает полученную страницу. Тогда примерно так:

Код:

function Connect(AAddress : String) : String;
var
  HTTP : TidHTTP;
begin
  HTTP := idHTTP.Create(Nil);
  Try
    Result := HTTP.Get(AAddress);
  Finally
    HTTP.Free;
  Endl
end;