Var
  I: Integer;
Begin
  For I := 0 To ComponentCount - 1 Do    //获取组件数量
  Begin
    If Components[I] Is TWinControl Then   
    Begin
      If (Components[I] As TWinControl).Focused Then
      Begin
        Self.Caption := (Components[I] As TWinControl).Name;
        Break;
      End;
    End;
  End;

Activecontrol.name //获取Delphi焦点所在的控件

var 
　　Panel: TComponent;
begin
　　Panel := FindComponent("pnlToolbar");
　　If Panel is TPanel then
　　TPanel(Panel).Color := clSilver;
end;