function GetInetPageSRC(const fileURL: String): string;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of char;
  BufferLen: DWORD;
  sAppName: string;
begin
 Result := '';
 sAppName := ExtractFileName(Application.ExeName) ;
 hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0) ;
 try
  hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0) ;
  try

   repeat
    InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
    Result := Result + Copy(string(Buffer),1,BufferLen);

   until (BufferLen = 0) OR (length(string(Buffer)) = 0);

  finally
   InternetCloseHandle(hURL)
  end
 finally
  InternetCloseHandle(hSession)
 end

end;