добавил навыки и привязал к ним донаты и баллы канала

forms/uCreateChat.pas

@@ -137,12 +137,10 @@ procedure TfCreateChat.FormCreate(Sender: TObject);
   procedure LoadFontList;
   var
     SearchRec: TSearchRec;
-    n: integer;
   begin
     if not DirectoryExists(myConst.fontsPath) then
       CreateDir(myConst.fontsPath);
 
-    n := 1;
     if FindFirst(IncludeTrailingPathDelimiter(myConst.fontsPath) + '*.*',
       faArchive, SearchRec) = 0 then
       try
@@ -151,7 +149,6 @@ procedure TfCreateChat.FormCreate(Sender: TObject);
           begin
             fCreateChat.frFontSettings1.cbFontStyleDefault.Items.Add
               (SearchRec.Name);
-            Inc(n);
           end;
         until FindNext(SearchRec) <> 0;
       finally