...
uses JPeg, Urlmon;
procedure URLToImage(Image: TImage; URL: String);
var
Buff: array[0..MAX_PATH] of Char;
begin
URLDownloadToCacheFile(nil, PChar(URL), Buff, SizeOf(Buff),0,nil);
Image.Picture.LoadFromFile(Buff);
end;
procedure TForm1.btnLoadImgClick(Sender: TObject);
var
Img : TImage;
begin
Img := TImage.Create(Self);
with Img do
begin
Name := 'Image'+IntToStr(2);
Parent := Self;
Height := 166;
Width := 180;
Stretch := True;
URLToImage(Img, 'http://www.aprendoencasa.com/wp-content/uploads/2012/02/delphi.jpg');
...
end;