procedure TForm1.Button1Click(Sender: T);
var a,b:integer;
begin //© 2005 koosha system Software 
 for a:=0 to Image1.Height-1 do
  begin
   for b:=0 to Image1.Width-1 do
    Image1.Canvas.Pixels[b,a]:= clWhite-(Image1.Canvas.Pixels[b,a]);
  end; //© 2005 koosha system Software
end;