пофиксил изменения и рандомный пользователь

forms/uGeneral.pas

@@ -1435,7 +1435,7 @@ begin
     else
     begin
       randomize;
-      RandomUserName := '@' + userlist[random(userlist.Count - 1)].login;
+      RandomUserName := '@' + userlist[random(userlist.Count)].login;
     end;
     res := StringReplace(res, '[RANDOMUSER]', RandomUserName, [rfReplaceAll]);
   end;

frames/fOBS.pas

@@ -720,6 +720,7 @@ for I := 0 to EventWebServers.Count - 1 do
       ws.se.BorderColor :=listNotify[i].ColorBorder;
       ws.se.BorderSize := listNotify[i].SolidBorder;
       ws.se.BlockColor := listNotify[i].ColorBlock;
+      EventWebServers[mi]:=ws;
       UpdateGridFromArray;
       db.SaveRecordArray<TOBSNotify>('listNotify', listNotify);
       Break;