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

[Ericnex]

Вчера пробовал устранить проблему так и не решается выдает программа ошибку как на рисунке (Type mistmatch in expression). Уже не знаю в чем проблема. Все типы проверил все правильно. Подсобите еще кто чем сможет.
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').AsIn teger:=DM.Query1.FieldByName('Id_pr ').AsInteger;
DM.Query2.ParamByName('Nomer_m').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;

[Аватар]

1. Покажи содержимое DM.Query2.SQL.Text после присваивания перед ExecSQL
2. Покажи структуру таблицы
3. Укажи какая СУБД
4. И вообще BDE знатно умеет глючить

[Ericnex]

1) DM.Query2.SQL.Text:= 'Select*from NoteBook where id_pr=:id_pr'
2) Схема таблицы на рисунке
3) СУБД Paradox7
4) Здесь полностью согласен, уже не первый раз сталкиваюсь с данной проблемой

[Аватар]

1. Мне нужно содержимое поля Text после всех присваиваний перед командой DM.Query2.ExecSQL. И взять его нужно не из кода проги и не то, что показано, а во время выполнения программы. Ставьте точку останова на команду DM.Query2.ExecSQL и во время остановки выдерните то, что я прошу

2. Предварительно могу предположить, что в одно из SHORT-полей пытаетесь засунуть слишком большое число (допустимый интервал значений от -32 768 до +32 767 )

ADD

В коде указано поле Nomer_m, а в структуре такого нет, зато есть Model_n. Не в этом собака зарыта?

[Ericnex]

С числами все в порядке и с названием поля тоже я просто другую подобную таблицу взял. Насчет ExexSQL не до конца понял: это делается с помощью клавишы F7 или по-другому объясните пошагово.