Var ARect: TRect;
begin
with Image1.Canvas do
begin
CopyMode:=cmWhiteness;
ARect:=Rect(0,0,Image1.Width, Image1.Height);
CopyRect(ARect, Image1.Canvas, ARect);
CopyMode:=cmSrcCopy;
end;
end;