снова checklistbox

[elshir]

Доброго времени суток!

Нужен совет профессионалов:

есть ADOTable (отображается в dbgrid), есть CheckListBox заполнение определенного поля таблицы делаю так:

procedure Tdannye.CheckListBox1ClickCheck(Sen der: TObject);
begin
for i:=0 to CheckListBox1.Items.Count - 1 do
if CheckListBox1.selected[i] then
begin
tbl_baseaccess.Edit;
s:= tbl_baseaccess.FieldByName('access' ).Asstring;
tbl_baseaccess.FieldByName('access' ).Asstring := s + '; ' + CheckListBox1.items[i]
end;
end;

выбранные значения из чеклистбокса вставляются в поле таблицы, но как продолжить код для того, чтоб они еще и удалялись при отмене выбора чеклистбокса?

Прошу помощи! Делфи занимаюсь совсем недавно!
Спасибо!

[elshir]

проблема решена путем мозговых потуг и логики