Отбор компонентов

[Putin-mode]

Добрый вечер! Помогите чуть дописать цикл в программе. Сама программа написана, выложу ее первую заготовку. В самой программе будет находиться около 7 панелей, и в каждой панели будет еще по 20 примерно панелей. (почему панели, просто мне с ними полегче работать, так как просто нужно будет эту панель закрасить и в принципе все) и нужно чтоб на тех 7 панелях вылезало 1 контекстное меню, на остальных 140 которые будут распределены на тех 7 тоже над каждой панелькой должно появляться 2 контекстное меню. в 1 и 2 меню будет процедура закраска панели над которой сейчас курсор, вернее над которой мы нажали правую кнопку и вызвали меню. в прикреплении я выложу программу и текст, в ней 6 панелей и над каждым вылезает нужное меню(выбор меню определяется через If в коде, если например имя панели больше 1 но не больше 3 то одно меню, если равно 4 или больше то второе меню) сейчас проблема в том что если на эти панели, на любую панель добавить еще панель только внутрь любой из них то при запуске программы сразу появляется ошибка "list index out of bounds", то есть как я думаю в каком то цикле у меня там не правильно дописано. Помогите пожалуйста. Спасибо!

procedure TForm1.Timer1Timer(Sender: TObject);
  var
  i : integer;
    r : TRect;
    pt: TPoint;
    b : Boolean;
begin
  GetCursorPos(pt);
  pt := ScreenToClient(pt);

  b := False;
  for i:=0 to ComponentCount -1 do
  if Components[i] is TPanel then
  begin
    r := Controls[i].BoundsRect;
    if (pt.x >= r.Left) and (pt.x <= r.Right) and
       (pt.y >= r.Top)  and (pt.y <= r.Bottom) then
    begin
      // нашли контрол с такими координатами
      b:=True;
      // через Controls[i].Name он нам доступен
      Form1.Caption := Controls[i].Name;
     Label1.Caption := IntToStr(ii);
      if (ii<=3) then
      begin
     //TPanel(Components[i]).Caption := '6';
     ii:=i;
     TPanel(Components[i]).PopupMenu := PopupMenu1 ;
     //Form1.Panel2.PopupMenu := PopupMenu1 ;
     end;
      if (ii>=4) then
      begin
       // TPanel(Components[i]).Caption := '5';
       ii:=i;
        TPanel(Components[i]).PopupMenu := PopupMenu2 ;

        // Form1.Panel3.PopupMenu := PopupMenu2;
         // Form1.Panel4.PopupMenu := PopupMenu2;
      //break;

      end;
      end;

       end;
    

  // если ничего небыло найдено, устанавливаем значение поумолчанию
  if not b then Form1.Caption := '';

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     Form1.Panel1.Color := clRed;
end;

procedure TForm1.N1111Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(ii);
         TPanel(Components[ii]).Caption := '5';
      TPanel(Components[ii]).Color := clRed;
end;

procedure TForm1.N2221Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(ii);
          TPanel(Components[ii]).Caption := '6';
         TPanel(Components[ii]).Color := clGreen;

end;

end.