[Unocide]

А как найти координаты курсора в TImage? Я так понимаю в вашем случае координаты будут считаться относительно формы.
И получить мне координаты необходимо в числах т.е. х=..., у=...
Делаю так

Код:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Image1.Canvas.TextOut(X,Y,'point');
    Memo1.Text:=Memo1.Text+ IntTostr(X) + IntTostr(Y);
end;

В мемо1 ничего не добавляется. Получается шо событие не произошло?