команда определения координат положения курсора мыши

[Человек_Борща]

Сообщение от Человек_Борща

А чтобы получить координаты с экрана надо:
1. Таймер (Интервал 50 мс)
2. 1 метка (TLabel)
2.

Procedure GetCursorCurrPos;
const
   MousePos='X %d:Y %d';
var
  Pos:TPoint; //Имеет X и Y
begin
GetCursorPos(Pos);  //Передаём в точку 
Form1.Label1.Caption:=Format(MousePos,[Pos.X,Pos.Y]); //Выводим на экран
end;

А уж в событие OnTimer извольте сами написать
На ваш вопрос ответ прекрасно дан.

извините но для вас видимо не свойствнно делать что-либо самостоятельно. Прочитайте то что процетированно красным.

[Dеlphi]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

Canvas.Pixels[x,y]:=clRed; //тут рисуй

end;