Запись значений в поле

[Soton]

Здраствуйте, есть одни вопрос:

procedure TfDM.Zapisat(Pole, sp: String; var numstr: Integer);
begin
  //ADOQLichData.Close;
  ADOQLichData.SQL.Clear;
  ADOQLichData.SQL.Add('insert into LichData(ID,'+Pole+') values('+IntToStr(numstr)+',"'+sp+'")');
  ADOQLichData.Open;
  ADOQLichData.Close;
end;

Здесь процедура вызывается:

if CheckBox1.Checked then
       Zapisat('SP','Да',i)
      else
        Zapisat('SP','Нет',i);

      if CheckBox2.Checked then
         Zapisat('VOENNOOBYAZ','Да',i)
      else
         Zapisat('VOENNOOBYAZ','Нет',i);

на первый взгляд, все выглядит норм, но при выполнении выходит ошибка

Ошибка подготовки SQL вырожения
подскажите, где ошибка

[Soton]

Спасибо, уже не нужно, нашел в чем причина