TScreen 类 - 判断当前焦点在哪个控件上

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Text := Screen.ActiveControl.ClassName;
end;

{多放几个控件, 按 Tab 测试; 但并不是所有控件都有焦点}