[Pyro]

PHP код:

const r = 5;
var point: TRect;

procedure draw(canvas: tcanvas; what: TRect);
begin
  canvas.Pen.Mode := pmXor;
  canvas.Brush.Color := clAqua;  // на белом - красный
  canvas.Rectangle(what);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  draw(Image1.Canvas, point);
  point := rect(x-r, y-r, x+r, y+r);
  draw(Image1.Canvas, point);
end;