TPicture in TImage verschieben (auch PNG, etc.)

[Bummi]

ich würde nicht auf ein TImage zeichnen, male lieber in z.B. einer Paintbox, bei PNG,ICO, etc sind sonst die Transparenzen weg.
Sinnfrei, aber zur Demo

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
   jpg:TJpegImage;
   bmp:TBitmap;
begin
   jpg:=TJpegImage.Create;
   jpg.LoadFromFile('C:\bilder1\20111213_120009.jpg');
   Canvas.Draw(100,100,jpg);

   bmp := TBitmap.Create;
   try
     bmp.Width := jpg.Width div 10;
     bmp.height := jpg.Height div 10;
     bmp.Canvas.StretchDraw(Rect(0,0,bmp.Width,bmp.Height),jpg);
     Image1.picture.Bitmap.Assign(bmp);
   finally
     bmp.Free;
   end;
   try

   finally
     jpg.Free;
   end;
end;