delphi – 在构造函数中获取组件名称？

type
  TMyCustomControl = class(TCustomControl)
private
  FText: string;
  procedure SetText(const Value: string);
protected
  procedure Paint; override;
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
published
  property Text: string read FText write SetText;
end;

注意,上述内容对于示例来说是不完整的,以保持简短.

无论如何,在我的控制下,我有一个Paint事件,它使用Canvas.TextOut显示文本(来自FText字段).

当我的组件被添加到Delphi表单设计器时(在任何用户可以对组件进行更改之前)我希望TextOut显示组件的名称–TButton,TCheckBox,TPanel等是带有caption属性的示例.

如果我尝试在构造函数中将我的Component的名称分配给FText,它将返回空,例如”;

constructor TMyCustomControl.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FText  := Name; //< empty string
  ShowMessage(Name); //< empty message box too
end;

如果我将FText：= Name更改为FText：=’Name’;它确实将文本输出到我的Component,所以我知道它不是实际代码中的问题,但显然这会输出’Name’而不是像MyCustomControl1,MyCustomControl2等实际的Component名称.

所以我的问题是,如何从构造函数事件中获取Component的名称？