» Delphi 2010 аналог curl

Помогите пожалуйста переделать
Код: function getheader($url,$cookie,$referrer){
$ch = curl_init ();
curl_setopt ($ch , curlopt_url , $url);
curl_setopt ($ch , curlopt_useragent , "mozilla/5.0 (windows; u; windows nt 5.1; ru-ru; rv:1.7.12) gecko/20050919 firefox/1.0.7");
curl_setopt ($ch , curlopt_returntransfer , 1 );
curl_setopt($ch, curlopt_header, 1);
curl_setopt($ch, curlopt_nobody, 1);
curl_setopt($ch, curlopt_followlocation, 1);
curl_setopt ($ch, curlopt_cookie, $cookie);
curl_setopt($ch, curlopt_referer, $referrer);
$content = curl_exec($ch);
curl_close($ch);
return($content);
}

Вот пример закачки файлов через компонент TIdHHTp(Indy) в Delphi..Думаю сами разберетесь потом что к чему и как с этим работать


Код:
procedure TForm1.Button1Click(Sender: TObject);
var
MemStream: TMemoryStream;
FileStream: TFileStream;
begin
MemStream := TMemoryStream.Create;
try
IdHTTP1.Get('http://www.blablabla.com/download.php?id=1', MemStream);
MemStream.Position := 0;
FileStream := TFileStream.Create(FileName, fmCreate);
try
MemStream.SaveToStream(FileStream);
finally
FileStream.Free;
end;
finally
MemStream.Free;
end;
end;