при навелении на любой объект на форме в лабеле имя объекта

[Arkuz]

Подскажите где и как записать этот код? Навёл на бутон, отобразился нэйм в лабеле и так на любой объект..

[Proof]

Есть событие onMousemMove на нем
н-р: label1.caption:=button1.caption;

[Andre1723]

Сообщение от Proof

Есть событие onMousemMove на нем
н-р: label1.caption:=button1.caption;

Я делал примерно так:в обработчик MouseMove формы

procedure TfmMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  name:String;//имя объекта
  xm,ym,t:Integer;//Координаты объекта
begin
  name:= <компонент>(sender).Name;
  fmMain.Label1.Caption:= (Sender as TControl).Name+#9+
                            'X('+IntToStr(xm)+')'+#9+'Y('+IntToStr(ym)+')'+#9+
                            'Tag = '+IntToStr(t);

end;

[Gorychev]

Выделяешь нужные компоненты (Shift+clik), выбираешь для них общий обработчик события OnMouseMove в инспекторе. В самом обработчике пишешь:

Label1.Caption:=  TComponent(Sender).GetNamePath;

[Gulik]

А хинты не помогут?

[andrey4623]

как обратиться к компоненту не по имени?

[Stilet]

как обратиться к компоненту не по имени?

Всмысле? Поясни.
По поводу топика можно в принципе в таймере.