Имя(Name) компонента +мышь

[Richard22]

Кто знает как узнать имя компонета в ктором , или над которым стоит курсор мышки?

[Alex2009]

Вот вариант,код не мой.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p: TPoint;
  c: TControl;
begin
  GetCursorPos(p);
  p := ScreenToClient(p);
  c := ControlAtPos(p,false,true);
  caption := inttostr(p.x)+', '+ inttostr(p.y)+' - ';
  if c<> nil then caption := caption + c.Name;
end;

[Richard22]

Спасибо большое!