Record in Komponente

[LoL]

Hi

Ich hab folgende Komponente + Record:

Delphi-Quellcode:

type
  TProcessDescription = packed Record
    pdDraw : boolean;
    pdHeight : byte;
    pdColor : TColor;
    pdDrawBackground : boolean;
    pdFont : TFont;
  end;

  TMeinKompo = class(TPanel)
  private
    { Private declarations }
    FProzDesc : TProcessDescription;
    procedure SetProzDesc(Value : TProcessDescription);
  public
    { Public declarations }
    property ProzDesc : TProcessDescription read FProzDesc write SetProzDesc;
  end;
//...
procedure TMeinKompo.SetProzDesc(Value : TProcessDescription);
begin
  if not(CompareMem(@Value, @FProzDesc, sizeof(Value))) then
    FProzDesc := Value;
end;

Wenn ich nun folgendes Versuche:

Delphi-Quellcode:

var test : TMeinKompo;
begin
  test := TMeinKompo.Create(Form1);
  test.ProzDesc.pdDraw := true;
end;

Kommt das der Linken Seite nichts zugewiesen kann. Woran liegt das kann ich nicht direkt in den Record schreiben oder habe ich was falsch deklariert?