Реализация таблицы

[Patriot1]

В чем ошибочен данный код при сохранении данных в БД? Сохранение происходит в БД, но только первого значения из компонента CBSector (ComboBox) или первого и второго, если выберешь оба, но если ставишь галочку только на втором значении, то сохраняется все-равно только 1-е..

Unit New
...
var
ClProgect:TProgect;
QServisWork:TQueryWork;

Procedure TQueryWork.Quer(s:string;Quer:TADOQ uery);
begin
With Quer do
begin
Active:=false;
Sql.Clear;
SQL.Add(s);
ExecSQL;
end;
end;

Procedure TProgect.Save;
var sql:string;
i,id,id_mark:integer;

....
//сохранение секторов
with dataModule1.DataMEsp.ADOTSprGroup do
begin
First;
For i:=0 to CBSector.Items.Count-1 do
if CBSector.ItemIndex=i then
begin
sql:=FieldValues['id'];
sql:='insert into '+
'fk_mrk_group(id_group,id_mark) values('+
sql+','+IntToStr(id_mark)+')';
QServisWork.Quer(sql,ADOQ);
Next;
end;
end;

[Patriot1]

Ошибку нашел

[beso]

=================================== ======================
ъADOTable1.Insert;
ADOTable1.FieldByName('Имя').AsStri ng:=Edit1.Text;
ADOTable1.FieldByName('Фамиля').AsS tring:=Edit2.Text;
ADOTable1.FieldByName('Званя').AsSt ring:=Edit3.Text;
ADOTable1.FieldByName('Телефон').As String:=Edit4.Text;
ADOTable1.Post;
ADOTable1.Refresh;
SpeedButton2.Enabled :=False;
end;
=================================== =======================