Wer kann was zur Category Auflistung bei TAction sagen?

[Bummi]

Ich nehme an der PropertyEditor der Actionlist wird über alle Actions laufen und deren Category Distinct selektieren und zur Auswahl anbieten

Delphi-Quellcode:

var
 sl:TStringList;
 i:Integer;
begin
 sl:=TStringList.Create;
  sl.Sorted := True;
  sl.duplicates := dupIgnore;
  for I := 0 to ActionList1.ActionCount - 1 do
      sl.Add(ActionList1.Actions[i].Category);
  Showmessage(sl.Text);
end;