Komponentbyggeri, tilføjelse af label til komponent

Jeg har bygget et grafisk komponent til brug i et program, komponenten skifter form, farve m.m. ifb. forskellige hændelser, og komponenten/nerne placeres på formen under runtime, hvilket altsammen virker som det skal.

men nu har jeg brug for at placere en label nedenuder komponenten med en tekst som viser hvilken \"state\"
komponenten er i

Jeg har prøvet med følgende erklæring/kode


Unit Komponenten;

Interface

Uses
......., StdCtrls;

Type
  TKompNr : Integer;
  .
  .
  TKompState = Integer;
  TKompLabel = TLabel;
  TKomp = class(TGraphicControl)
  Private
    FKompNr : TKompNr
    .
    .
  Public
    Lablen : TKompLabel;
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
  Published
    property KompNr: TKompNr read FLKompNr write SetKompNr;
    .
    .



Diverse Procedure
    .
    .
    .

constructor TKomp.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  KompNr := 0;
  Left := 20;
  Top := 50;
  ParentShowHint := False;
  ShowHint := True;
  Visible := True;
  FPen:= TPen.Create;
  FPen.OnChange:= StyleChanged;
  FBrush:= TBrush.Create;
  FBrush.OnChange:= StyleChanged;
  Brush.Color := clScrollBar;
  Lablen.Caption := \'Her er jeg\';
  Lablen.Top := 30;  <---- Når denne linie afvikles går det galt
  Lablen.Left := 50;
end;


Hvad går galt ?
jeg kan godt tilskrive Lablen.Caption, men når jeg vil tilskrive Lablen.Top får jeg Acces Violation.