圖片按比例放大與縮小

  with TJPEGImage(Image1.Picture.Graphic) do
  Scale:=TJPEGScale(trackbar1.Position-1);   ///0,1,2,3   4個比例縮放

   Image1.Top := 0;
   Image1.Left := 0;