procedure MasAdd(text: KOLstring; Event: TOnMenuItem = nil);
var i: integer; // добавление пунктов и обработчиков
begin
 i := Length(mc);
 SetLength(mc, i + 1);
 mc[i] := PKOLChar(text);

 if (text <> '(') AND (text <> ')') Then
 begin
   i := Length(me);
   SetLength(me, i + 1);
   me[i] := Event;
 end;
end;

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
...
 MasAdd('Скин');
 MasAdd('(');

 dir := NewDirList(GetStartDir + 'Skins\', '*', FILE_ATTRIBUTE_DIRECTORY);
 try
   For w := 0 to dir.Count - 1 do
     if Length(dir.Names[w]) <= 30 Then
       MasAdd('-!' + dir.Names[w], LdSkin);
 finally
   dir.Free;
 end;

 MasAdd(')');
 MasAdd('-Snap', nil);
 MasAdd('-');
 MasAdd('Выход', OnExit);
 MasAdd('');