var
ImageFile: TBitmap;
begin
ImageFile:=TBitmap.Create;
try
with ImageFile do
begin
Width:=Image.Width;
Height:=Image.Height;
Canvas.CopyRect(Rect(Width,0,0,Height),Image.Canvas,Rect(0,0,Image.Width,Image.Height));
Image.Picture.Assign(ImageFile);
end;
finally
ImageFile.Free;
end;
end;
