怎么实现在form1上用鼠标点击下，出现个红点。

Question

怎么实现在form1上用鼠标点击下，出现个红点，在moseup的方法里，或者在一个画布里，已经实现画矩形，画圆。
想要实现的功能是，画一个圆，用鼠标按这圆的轨迹获得圆的一些坐标，所以想要用鼠标在圆的轨迹上点击出现红点，做下记号，每点一次就输出坐标。

Answer 1

Form上放一个Image，然后在Image的MouseUp事件中写：
Image.Canvas.Pixels[x,y]:=clRed;

Answer 2

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Self.Canvas.Brush.Color := clRed;
  Self.Canvas.Pen.Color := clBlue;
  Self.Canvas.Ellipse(x,y,x+5,y+5);
end;