[roman]

Utiliza la función FindVCLWindow (de la unidad Controls). Un ejemplo:

Código Delphi [-]
procedure GetControlInfo(Info: TStrings);
var
  Control: TWinControl;

begin
  Control := FindVCLWindow(Mouse.CursorPos);

  if Assigned(Control) then
  begin
    Info.Values['class'] := Control.ClassName;
    Info.Values['name'] := Control.Name;
    Info.Values['height'] := IntToStr(Control.Height);
    Info.Values['left'] := IntToStr(Control.Left);
    Info.Values['top'] := IntToStr(Control.Top);
    Info.Values['width'] := IntToStr(Control.Width);
  end;
end;

El procedimiento coloca en Info, datos acerca del control que esté bajo el cursor al momento de llamarlo. El formato de los datos es

propiedad=valor

de manera que quede cómodo pasarlo a un ValueListEditor.

// Saludos