[scroyler]

Код:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
  0: ValueListEditor1.Strings.Append('all ok 111111111111');
  1: ValueListEditor1.Strings.Append('all ok 22222222222');
  2: ValueListEditor1.Strings.Append('all ok 3333333333333');

  end;
end;

end.

пробую так,но не работает