переменные, DBEdit

[MrMorozko]

Всем привет, проблема такая в коде выдает ошибку типо не может переконвертировать данные

procedure TForm4.Button1Click(Sender: TObject);
var a,s,ab,qe,x,y,xy,xx,yy,xxyy:integer; q,e,qw,w:real;
begin
dbedit1.Text:=DBLookupComboBox1.Text;
dbedit6.Text:=dbedit5.Text;
Form1.ADOTable1.Locate('Òîâàð',DBLookupComboBox1.Text,[]);
Form1.adotable1.Edit;
s:=strtoint(DBedit7.text);
a:=strtoint(DBEdit2.text);
ab:=s-a;
Dbedit7.Text:=IntToStr(ab);
q:=strtofloat(DBEdit3.text);
dbedit9.Text:=dbedit10.Text;
e:=strtofloat(DBedit8.text);
qw:=100;
Вот сдесь>>>>>>>>>>>>w:=(q/e)*qw;
Dbedit8.Text:=FloatToStr(w);
x:=strtoint(DBedit10.text);
y:=strtoint(DBEdit8.text);
xy:=x+y;
Dbedit11.Text:=IntToStr(xy);
xx:=strtoint(DBedit12.text);
yy:=strtoint(DBEdit2.text);
xxyy:=xx+yy;
Dbedit12.Text:=IntToStr(xxyy);
form1.ADOTable1.Insert;
end;

[Аватар]

w:=(q/e)*qw; наврядли выдаст ошибку "типо не может переконвертировать данные", наиболее вероятно - переполнение от деления на ноль или от умножения очень больших значений переменных. А вот strtofloat аж бегом может выдать нечто подобное, если в аргументе не подходящие данные, в т.ч. если символьное значение пустое