procedure THICommandCenter.SetCommands;
var
  i,ico: integer;
  name,info:string;
  def:HICON;
  f:byte;
begin
  def := LoadIcon(HInstance, 'ASMA');
  for i := 0 to Value.Count - 1 do
    begin
      info := Value.items[i];
      name := GetTok(info, '=');
      if name = '' then name := info;
      if name[1] = '^' then
        begin
           delete(name, 1, 1);
           f := FLG_CHECK;
        end
      else F := 0;
      
      if def = Value.Objects[i] then   // вот такой оригинальный костыль...
        ico := -1
      else ico := IList.AddIcon(Value.Objects[i]); 
      addCmdInfo(name, info, ico, f);
    end;   
end;