Delphi Процедура вывода PNG / JPG сразу с сайта в Timage

[Lomanu4]

procedure SavePNG(Link:String;Image:Timage);
var
  m:TMemoryStream;
  jpeg:TPNGObject;
  idhttp1:Tidhttp;
begin
  m:=TMemoryStream.Create;
  jpeg:=TPNGObject.Create;
  idhttp1:= Tidhttp1.create(nil);
  try
  IdHTTP1.Request.Accept:='image/php';
  IdHTTP1.Get(Link,m);
  m.Position:=0;
  jpeg.LoadFromStream(m);
  image1.Picture.Graphic := jpeg;
  finally
  jpeg.Free;
  m.Free;
  idhttp1.free;
  // можно использовать еще freeandnil, он выгружает все с оперативной памяти
  end;
  end;

  Ниже тоже самое, только для JPG, не стал переделывать, чуть-чуть сами напрягитесь :)

-- JPG
var TJpegImage
begin
  im:=TMemoryStream.Create;
  JPEG:=TJPEGImage.Create;
  try
    form1.IdHTTP1.Get(s,im);
    im.Position:=0;
    JPEG.LoadFromStream(im);
    form2.image1.Picture.Graphic := jpeg;
  finally
    jpeg.Free;
    im.Free;
  end;
end;