[Beast]

Вот таким образом решил добавить в ComboBox'ы информацию из другой формы:

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
 i: integer;
 ComboBox:TComboBox;
begin
 i := Form1.RadioGroup1.ItemIndex+1;
 ComboBox := Form1.FindComponent('ComboBox'+IntToStr(i)) as TComboBox;
 ComboBox.Text := ComboBox1.Text + ' ' + Edit1.Text + ' ' + Edit2.Text + '. ' + Edit3.Text + '.';
 ComboBox.Items.Add(ComboBox1.Text + ' ' + Edit1.Text + ' ' + Edit2.Text + '. ' + Edit3.Text + '.');
 Form2.Close;
end;

А вот так удаляю строку из списка необходимого ComboBox'а:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 ComboBox:TComboBox;
begin
 i := RadioGroup1.ItemIndex+1;
 ComboBox := FindComponent('ComboBox'+IntToStr(i)) as TComboBox;
 ComboBox.Items.Delete(ComboBox.ItemIndex);
 ComboBox.Text := ComboBox.Items.Strings[ComboBox.ItemIndex+1];
end;

Ошибок вроде не выдает, но не знаю - написан код нормально или стоит чего подправить???