Ошибка определения типов

[Ericnex]

При вставке записи:

begin
 DM.Query2.DisableControls;
   DM.Query2.SQL.Clear;
   DM.Query2.SQL.Add('insert into NoteBook (Nomer_m, Type_proc, Takt_proc, Oper_pam, HDD, Video_sys, Videopamiat, Diagonal, Privod, Ves, Id_pr) values (:Nomer_m, :Type_proc, :Takt_proc, :Oper_pam, :HDD, :Video_sys, :Videopamiat, :Diagonal, :Privod, :Ves, :Id_pr)');
   DM.Query2.ParamByName('Id_pr').AsInteger:=DM.Query1.FieldByName('Id_pr').AsInteger;
   DM.Query2.ParamByName('Nomer_m').AsString:=Edit1.Text;
   DM.Query2.ParamByName('Type_proc').AsString:=ComboBox1.Text;
   DM.Query2.ParamByName('Takt_proc').AsInteger:=strtoint(Edit3.Text);
   DM.Query2.ParamByName('Oper_pam').AsInteger:=strtoint(Edit4.Text);
   DM.Query2.ParamByName('HDD').AsInteger:=strtoint(Edit5.Text);
   DM.Query2.ParamByName('Video_sys').AsString:=ComboBox2.Text;
   DM.Query2.ParamByName('Videopamiat').AsInteger:=Strtoint(Edit7.Text);
   DM.Query2.ParamByName('Diagonal').AsInteger:=strtoint(Edit8.Text);
   DM.Query2.ParamByName('Privod').AsString:=ComboBox3.Text;
   DM.Query2.ParamByName('Ves').AsInteger:=strtoint(Edit10.Text);
   DM.Query2.ExecSQL;
   DM.Query2.Close;
   DM.Query2.SQL.Clear;
   DM.Query2.SQL.Text:='Select * from NoteBook where (Id_pr=:Id_pr)';
   DM.Query2.Open;
   DM.Query2.EnableControls;
   end;

Возникает ошибка :Type mistmatch expression.
Ругается на DM.Query2.ExecSQL;
В чем может быть проблема?

[Yurk@]

наверно всё же так:

 DM.Query2.ExecSQL;
 DM.Query2.Close;
// DM.Query2.SQL.Clear; // в даном контексте это лишнее
 DM.Query2.SQL.Text:='Select * from NoteBook where (Id_pr=:Id_pr)';
 DM.Query2.ParamByName('Id_pr ').AsInteger:=DM.Query1.FieldByName('Id_pr ').AsInteger;
 DM.Query2.Open;