Pobieranie nazwy używaniego komponentu

Witam.
Mam pytanie jak pobrać nazwę aktualnie używanego komponentu na formie ?

TComponent.Name ?

Tak tylko komponenty są generowane dynamicznie...
Coś takiego jak to

 
function GetActivComponent:TComponentName
var
 H: THandle ;
 S: array[0..300] of Char ;
begin
 H := WindowFromPoint(Mouse.CursorPos) ; // pobierz uchwyt okna na którym znajduje się kursor
 GetClassName(H, S, 300) ; // pobierz nazwę klasy - czyli nazwę komponentu
 Result:=S;
end;

tylko że nie po pozycji myszki tylko

Komponentowi generowanemu dynamicznie tez możesz nadać nazwę.
Jeżeli nie nadałeś to niektóre sami sobie nadają nazwę niektóre zostają przy pustej nazwie.

Lepszy sposób to:

var 
  Nazwa: String;

procedure TForm1.Form1MouseEnter(Sender: TObject);
begin
  Nazwa := TLabel(Sender).Name;  //Np. TLabel, TEdit etc.
end;

I przydziel tą procedurę do każdego komponentu.

[CIACH!] internet... tylko po tym jaki komponent jest aktywny a nie mogę dodawać do każdego bo do pewnych się nie da...