procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
showmessage('Mouse moved to X='+inttostr(x)+' Y='+inttostr(y));
end;
Параметры
Sender: TObject - ссылка на объект
X,Y: Integer - координаты курсора в текущий момент относительно верхней левой точки объекта
Shift: TShiftState - нажатые в данный момент управляющие кнопки
