В один массив несколько "параметров" (границ массива)

[Serge_Bliznykov]

позволю себе вмешаться в обсуждение..

Сообщение от FleXik

----------
Прик, вы про это (приставку Form1 потом везде где лишняя - уберу)???

точно так. Везде, где выделено, лучше убрать.
Это, конечно, не ошибка, можете и так оставить, но, учтите, что:
1) такое указание бессмыслено (получается тавтология == масло маслянное)
2) если попытаетесь скопировать код в другую форму/проект (или, банально, переименовать Form1) - данный кусок кода придётся рефакторить ручками!

procedure TForm1.sComboBox1Select(Sender: TObject);
begin
  s:='';

  if Form1.sComboBox1.ItemIndex=1 then
  begin
    Form1.sComboBox2.Clear;
    Form1.sComboBox2.Items.Add('');
    Form1.sComboBox2.Items.Add('Один');
    Form1.sComboBox2.Items.Add('Два');
    Form1.sComboBox2.Items.Add('Три');
  end;

  if Form1.sComboBox1.ItemIndex=2 then
  begin
    Form1.sComboBox2.Clear;
    Form1.sComboBox2.Items.Add('');
    Form1.sComboBox2.Items.Add('Четыре');
    Form1.sComboBox2.Items.Add('Пять');
    Form1.sComboBox2.Items.Add('Шесть');
    Form1.sComboBox2.Items.Add('Семь');
  end;

  if Form1.sComboBox1.ItemIndex=3 then
  begin
    Form1.sComboBox2.Clear;
    Form1.sComboBox2.Items.Add('');
    Form1.sComboBox2.Items.Add('Восемь');
    Form1.sComboBox2.Items.Add('Девять');
  end;

end;

[Пепел Феникса]

Сообщение от Serge_Bliznykov

2) если попытаетесь скопировать код в другую форму/проект (или, банально, переименовать Form1) - данный кусок кода придётся рефакторить ручками!

там еще хуже, форма привязана к объекту Form1, то есть она строго одноразовая, и причем обязана быть создана через Form1.

Флексик, применяй Self если подсказка от среды нужна.

и формы старайся именовать.