[MegaPiha]

Пробовал код, ту же ошибку пишет. Если убрать из текста Select и заменить числом то все нормально. Не догоняю в чем дело. Единственное могу предложить добавлять запись не через запрос, а простым путем.

Код:

var s:integer;
begin
s:=StrToInt(edit1.Text);
 With form1 do begin
    ADOTable3.insert;
    ADOTable1.Locate('familia',comboBox1.Text,[]);
    ADOTable3.FieldByName('Code_s').AsInteger:=Form1.ADOTable1.fieldByName('Code_s').AsInteger;
    ADOTable3.FieldByName('Data').AsDateTime:=DateTimePicker1.Date;
    ADOTable3.FieldByName('Vid_Propuska').AsString := ComboBox3.Text;
    ADOTable3.FieldByName('Kol_vo_chas').AsInteger := S;
    ADOTable3.Post;

Переменную s использую, т.к. по необъяснимым для меня причинам вылетает ошибка если StrToInt(edit1.Text) вставить сразу в строку записи значения в поле kol_vo_chas.