Hola.
Como ya te ha dicho miguel, lo que te hace falta es leer un buen manual, libro o tutorial de creación de componentes.
Basta con que uses una de las técnicas ya descritas por mi, por ejemplo los apuntadores.
Te diré de manera rápida una forma general de solucionarlo, sin pretender que esto se vuelva un curso de POO o de componentes.
Código Delphi
[-]
Type
TmiClase = class(TComponent)
private
FLabel : TLabel; Procedure SetLabel(value : TLabel);
Procedure Notification(AComponent : TComponent; Operation : TOperation); override;
public
Procedure HacerAlgo;
Property Label : TLabel read FLabel write SetLabel;
end;
implementation
Procedure TMiClase.SetLabel(value : TLabel);
Begin
FLabel := value;
if assigned(FLabel) Then
FLabel.FreeNotification(Self);
end;
Procedure TMiClase.Notification(AComponent : TComponent; Operation : TOperation);
Begin
if (operation = opRemove) and (AComponent = FLabel) Then
FLabel := nil;
end;
Procedure TMiClase.HacerAlgo;
Begin
if assigned(FLabel) Then
FLabel.Caption := 'Hola';
end;
Procedure TForm1.Button1Click(sender : TObject);
Var
newComponent : TMiComponente;
Begin
newComponent := TMiComponente.Create;
newComponent.Label := Label1;
newComponent.HacerAlgo;
end;
Lamento que las explicaciones sean escuetas, espero que el código se explique por si mismo. He tratado de aclarar con comentarios los puntos que pueden parecerte cripticos.
Hasta luego.