function GetStr(url: string): string;
const
  BufferSize = 6536;
var
  hInternet, hConnect: pointer;
  Buffer: array[1..BufferSize] of char;
  BufferLen: LongWord;
  i: integer;
begin
  result:='';
  hInternet:=InternetOpen('Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0)', INTERNET_OPEN_TYPE_PRECONFIG,0, nil, 0);
  if Assigned(hinternet) then
  try
    hConnect:=InternetOpenUrl(hInternet, pchar(url),  nil, 0, 0, 0);
  repeat
  if not InternetReadFile(hConnect, @Buffer, SizeOf(Buffer), BufferLen) then
    bufferlen:=0;
    for i:=1 to bufferlen do result:=result+char(Buffer[i]);
    until bufferlen=0;
  finally
    InternetCloseHandle(hinternet);
  end;
end;