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)