🚀 go-pugleaf

Znalazłem procedurkę, która powinna zapisać stronę html do pliku:

w uses dodałem: LibCurl, unixtype

procedure TForm1.btPobierzClick(Sender: TObject);
var hCurl: pCurl;
     f : TFileStream;
     URL : Pchar = 'http://www.freepascal.org/';
function DoWrite(Ptr: Pointer; Size: size_t; nmemb: size_t; Data: 
Pointer): size_t; cdecl;
begin
   Result:=TStream(Data).Write(Ptr^,Size*nmemb); //błąd
end;

begin
   f:=TFileStream.Create('fpc.html',fmCreate);
   try
     hCurl:= curl_easy_init;
     if Assigned(hCurl) then begin
       curl_easy_setopt(hCurl,CURLOPT_VERBOSE, [True]);
       curl_easy_setopt(hCurl,CURLOPT_URL,[URL]);
       curl_easy_setopt(hCurl,CURLOPT_WRITEFUNCTION,[@DoWrite]);
       curl_easy_setopt(hCurl,CURLOPT_WRITEDATA,[Pointer(f)]);
       curl_easy_perform(hCurl);
       curl_easy_cleanup(hCurl);
     end;
   finally
     f.Free;
   end;
   memo1.Lines.LoadFromFile('fpc.html');
end;

Niestety, plik fpc.html się tworzy, ale nic się do niego nie
zapisuje. Do tego wywala mi błąd, bo Size i nmemb zawierają
chyba jakieś kosmiczne wartości. Nie chwytam, jak to ma działać :/
Pomocy!!!

Sławek