procedure TForm1.Button1Click(Sender: TObject);
var
ms:   TMemoryStream;
jpeg: TGraphic;
begin
ms := TMemoryStream.Create;
jpeg := TJpegImage.Create;
try
httpcli1.URL:= 'http://forum.antichat.ru/image.php?u=32867&dateline=1202417398';
httpcli1.Get;
httpcli1.RcvdStream:=ms;
jpeg.LoadFromStream(ms);
Image1.Picture.Graphic := jpeg;
finally
end;
end;