function downloadtomemory (URL : string): string;
const
  BufferSize = 3000 ;
var
  hSession, hURL: HInternet;
  Buffer:  Array[1..buffersize] of Byte;
  BufferLength: DWORD;

  b1 : Array[1..buffersize] of Byte;
 rezultat : string;
  begin

 hSession := InternetOpen('d14l-useragent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0) ;

  hURL := InternetOpenURL(hSession, PChar(URL), nil, 0, 0, 0) ;

    InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLength) ;
            move(Buffer,b1,bufferlength);

             rezultat := pchar(@b1);
         InternetCloseHandle(hURL);

  InternetCloseHandle(hSession);
   result := rezultat ;
end;