PascalABC. Как в паскале найти координату точки, на которую я нажму?

// Иллюстрация обработки событий мыши
uses GraphABC;

procedure MouseDown(x,y,mb: integer);
begin
MoveTo(x,y);
end;

procedure MouseMove(x,y,mb: integer);
begin
if mb=1 then LineTo(x,y);
end;

begin
// Привязка обработчиков к событиям
OnMouseDown := MouseDown;
OnMouseMove := MouseMove
end.