Componentes - acessando membros protegidos do objeto

  // Aqui cria uma Label que faz um override do label original

  TLabel = class(StdCtrls.TLabel)

  Public

    constructor Create(Aowner : TComponent); override;

  end;

  TForm1 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowMessage(Label1.GetLabelText);

end;

// Posso mecher no create, sem ter que fazer um novo label

constructor TLabel.Create(Aowner: TComponent);

begin

  inherited;

  Font.color := clBlue;

end;