var
dummyimage:timage;
x,y:integer;
srcrect,dstrect:trect;
begin
x:=image1.picture.width;
y:=image1.picture.height;
dummyimage:=timage.create(self);
try
srcrect:=rect(0,0,x,y);
dstrect:=rect(x,0,0,y);
dummyimage.width:=x;
dummyimage.height:=y;
dummyimage.canvas.copymode:=cmsrccopy;
dummyimage.canvas.copyrect(dstrect,image1.canvas,srcrect);
image1.picture:=dummyimage.picture;
finally
dummyimage.free;
end;
end;
