怎样在图片上实现坐标定位

Question

有一副小地图，在地图上设置几个点，用户点击这些点时可以响应相应的鼠标事件，并且用户可以自己添加、修改这些点的坐标、名称。这样的功能改怎么实现。
求解决方法！！！！

Answer 1

var
  rec: array[0..2] of Tpoint;
//设置点的坐标
procedure TForm1.Button1Click(Sender: TObject);
begin
  rec[strtoint(edit3.text)].X:=strtoint(edit1.Text);  //
  rec[strtoint(edit3.text)].y:=strtoint(edit2.Text);  //
end;
//响应单击点
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i:integer;
begin
  if (rec[0].x=X) and (rec[0].y=Y) then
  begin
  end;
  if (rec[1].x=X) and (rec[1].y=Y) then
  begin
  end;
  if (rec[2].x=X) and (rec[2].y=Y) then
  begin
  end;end;