Hente kildekode med TWebBrowser

//edit1 er Url
Memo1.Lines.Text:= downloadfile(edit1.Text);

Min Delphi 6 kender ikke downloadfile....

ups gemte funktionen....

function DownloadFile(const Url: string): string;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
begin
  Result := '';
  NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(NetHandle) then
  begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

    if Assigned(UrlHandle) then
      { UrlHandle valid? Proceed with download }
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        Result := Result + Buffer;
        FillChar(Buffer, SizeOf(Buffer), 0);
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
      until BytesRead = 0;
      InternetCloseHandle(UrlHandle);
end;
  end;
    end;

Der er mange ting fra funktionen, som mit program ikke kender.
Skal jeg tilføje noget i "uses" ???

prøv med..

uses
WinInet

Ja, så virker det.
Kan man evt. få den til kun at hente de første to linier af kildekoden ??

det ved jeg faktisk ikke

OK, tak for hjælpen.