[Delphi] nazwa obiektu a uchwyt do niego

Jak pobrać nazwę obiektu mając do niego uchwyt ?
Edit:
Pisząc 'nazwa obiektu' miałem na myśli wskaźnik do obiektu.

po prostu zrzutuj na obiekt a potem .name
np SzukanaNazwa:=(Sender as TEdit).name;