[Zigfreed1]

Можна вот так:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
memo:TMemoryStream;
begin
Memo := TMemoryStream.Create;
idHTTP1.Get('http://www.kartinka.ru/risunok.jpg',Memo);
idHTTP1.Disconnect;
Memo.SaveToFile('image.jpg');
Memo.Free;

end;