图片翻转的delphi源码

图片翻转的delphi源码
procedure TForm1.btnApplyClick(Sender: TObject);
var
Bitmap:TBitmap;
begin
Bitmap:=TBitmap.Create;
Bitmap.Assign(Image1.Picture.Bitmap);
StretchBlt(Bitmap.Canvas.Handle,0,0,Image1.Width,Image1.Height,
Image1.Canvas.Handle,Image1.Width,0,-1*Image1.Width,
Image1.Height,SRCCOPY);
Image1.Canvas.Draw(0,0,Bitmap);
Bitmap.Free;
end;