var
Img : TJpegImage;
Ms : TMemoryStream;

begin

Img := TJpegImage.Create;
Ms := TMemoryStream.Create;
try
Http.Get('http://vkontakte.ru/ссыль на аву', Ms);
except end;
Ms.Position := 0;
img.LoadFromStream(ms);
form1.Image1.Picture.Graphic := img;