да си отговоря сам:

Url := '';
Url := '';
UrlHandle := InternetConnect( NetHandle, PChar(''), INTERNET_DEFAULT_HTTP_PORT, PChar( '' ), PChar( '' ),
INTERNET_SERVICE_HTTP, 0, 0 );
UrlRequest := HttpOpenRequest(UrlHandle, 'GET', PChar(''), nil, '', nil, 0, 0);
HttpSendRequest( UrlRequest, nil, 0, nil, 0 );
if Assigned(UrlRequest) then
begin
FillChar(Buffer, SizeOf(Buffer), 0);
repeat
Result := Result + Buffer;
FillChar(Buffer, SizeOf(Buffer), 0);
InternetReadFile(UrlRequest, @Buffer, SizeOf(Buffer), BytesRead);
until BytesRead = 0;
InternetCloseHandle(UrlRequest);