Ошибка Type mistmatch in expression

[Ericnex]

Вчера пробовал устранить проблему так и не решается выдает программа ошибку как на рисунке (Type mistmatch in expression). Уже не знаю в чем проблема. Все типы проверил все правильно. Подсобите еще кто чем сможет. СУБД Paradox7.
DM.Query2.DisableControls;
DM.Query2.SQL.Clear;
DM.Query2.SQL.Add('insert into NoteBook (Model_n, Type_proc, Takt_proc, Oper_pam, HDD, Video_sys, Videopamiat, Diagonal, Privod, Ves, Id_pr) values (:Model_n, :Type_proc, :Takt_proc, :Oper_pam, :HDD, :Video_sys, :Videopamiat, :Diagonal, :Privod, :Ves, :Id_pr)');
DM.Query2.ParamByName('Id_pr').AsIn teger:=DM.Query1.FieldByName('Id_pr ').AsInteger;
DM.Query2.ParamByName('Model_n').As String:=Edit1.Text;
DM.Query2.ParamByName('Type_proc'). AsString:=ComboBox1.Text;
DM.Query2.ParamByName('Takt_proc'). AsInteger:=strtoint(Edit3.Text);
DM.Query2.ParamByName('Oper_pam').A sInteger:=strtoint(Edit4.Text);
DM.Query2.ParamByName('HDD').AsInte ger:=strtoint(Edit5.Text);
DM.Query2.ParamByName('Video_sys'). AsString:=ComboBox2.Text;
DM.Query2.ParamByName('Videopamiat' ).AsInteger:=Strtoint(Edit7.Text);
DM.Query2.ParamByName('Diagonal').A sInteger:=strtoint(Edit8.Text);
DM.Query2.ParamByName('Privod').AsS tring:=ComboBox3.Text;
DM.Query2.ParamByName('Ves').AsInte ger:=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;