[Alegun]

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

Подкорректировал высланный проект под свои задачи - в итоговую строку должно вставляться ОДНО значение из выпадающего списка и оставаться ОДИН флажок в списке...

Замените в сборке процедуру выбора на

Код:

procedure TForm1.CheckComboBoxSelect(Sender: TObject);
var
 i: integer;
begin
 with (Sender as TComboBox) do
  begin
   for i:= 0 to Items.Count-1 do
    if i <> ItemIndex then
     begin
      Items.Objects[i].Free();
      Items.Objects[i]:= nil;
     end;
   if Items.Objects[ItemIndex] = nil then
    Items.Objects[ItemIndex]:= TObject.Create();
  end;
end;