[PhoeniX]

Какой части исходник? Это?

Код:

uses WinInet;

function GetInetFile(const fileURL, FileName: string): boolean;
type
  DWORD: LongWord; //Это чтоб лишних тяжеловесов не подключать
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
begin
  hSession := InternetOpen(PChar('Mozilla'), //Вместо "Mozilla" ставь что хочешь
  INTERNET_OPEN_TYPE_PRECONFIG,
  nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession,
    PChar(fileURL),
    nil,0,0,0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer,
        SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen)
      until
        BufferLen = 0;
      CloseFile(f);
      Result:=True;
    finally
      InternetCloseHandle(hURL)
    end;
  finally
    InternetCloseHandle(hSession)
  end;
end;

HTML-страницы - это такие же файлы. Если надо получить PHP/ASP-файл - ничего не меняется, только для простоты меняй расширение на html.