var x,y:Integer; Jpeg1:TJpegImage; bmp1,tmpbmp:TBitmap; begin Jpeg1 :=TJpegImage.Create; Jpeg1.LoadFromFile('H:\Avi_圖_Wav\跳.Jpg '); bmp1 :=TBitmap.Create; bmp1.Assign(Jpeg1); tmpbmp:=TBitmap.Create; tmpbmp.Width:=bmp1.Height; tmpbmp.Height:=bmp1.Width; for x:=0 to bmp1.Width do for y:=0 to bmp1.Height do tmpbmp.Canvas.Pixels[y,bmp1.Width-1-x]:=bmp1.Canvas.Pixels[x,y]; Image1.Picture.Bitmap:=tmpbmp; Jpeg1.Assign(tmpbmp);