DBLookupComboBox занести в Edit через запятую

[бумблгум]

Здравствуйте!!! подскажите
пожалуйста. Делаю меню
для ресторана, на форме
есть DBLookupComboBox1
(он выводит Ингредиент из
другой таблицы) и Edit в
который я хочу поочередно
помещать эти Ингредиент
через запятую. Вопрос
заключается в том, что не
могу занести в Edit через
запятую Ингредиенты.

[superedward]

бумблгум, код в студию

[Yurk@]

если я верно понял, то:
выбрали значение в нашем комбо-боксе (LCB) и нажимаем кнопку "выбрать" имеющую примерно такой код

procedure TMainForm.BtnClick(Sender: TObject);
// LCB - LookupComboBox
begin
  if Pos(LCB.Text+',', Edit1.Text) = 0 then // такого инг-та нету в эдите
    Edit1.Text := Edit1.Text + LCB.Text+', ';
end;