TPopUpMenu-Shortcuts in Frame - Access violation

[himitsu]

Delphi-Quellcode:

Procedure TFrame_Personen.PuM_FettClick(Sender: TObject);
begin
  Assert(Assigned(PuM_Personen), 'foo');
  Assert(Assigned(PuM_Personen.PopupComponent), 'bar');
  GLD.Schrift_Fett(PuM_Personen.PopupComponent as TJvDBRichEdit);
end;

ändert nichts? (am Besten nicht als Release kompiliert)