TListBox(Rechtsklick.PopupComponent).Items.Add('Irgendein Text');
So ein harter Cast macht alles nur noch schlimmer.
Wenn man nicht sicher ist mit welcher Komponente man es zu tun hat, dann lässt man sich den Namen ausgeben:
Delphi-Quellcode:
procedure ShowCompName(c:TComponent);
begin
if Assigned(c) then
ShowMessage(c.Name+':'+c.ClassName);
end;
...
ShowCompName(Rechtsklick.PopupComponent);