type
  TShape = class(ExtCtrls.TShape)
  private
    FMyLabel : String;
    procedure SetMyLabel(const S : String);
  protected
    procedure Paint; override;
  public
    property MyLabel : String read FMyLabel write SetMyLabel;
    constructor Create(AOwner : TComponent); override;
  end;

implementation

constructor TShape.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  FMyLabel:='';
end;

procedure TSape.SetMyLabel(const S : String);
begin
  if MyLabel = S then Exit;
  FMyLabel:=S;
  Invalidate;
end;

procedure TShape.Paint;
begin
  inherited Paint;
//Дальше свой собственный вывод строки, например такой:
  Canvas.TextOut(2,2,MyLabel);
end;