[valenina]

Я дополнила формулу и теперь моя процедура выглядет след образом:

Код:

procedure TForm11.Button1Click(Sender: TObject);
var a,b,c:integer;
begin
a:=strtoint(Form12.Edit22.Text)+strtoint(Form12.Edit24.Text);
b:=a*Strtoint(Edit2.Text)+strtoint(Edit4.Text);
DBEdit1.Text:=floattostr((1.1*(DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat*3.14*DataModule3.Kod_BTable1.FieldByName('B_Стенки').AsFloat*DataModule3.Kod_HTable1.FieldByName('H_Ёмкости').AsFloat+2*(3.14*DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat*DataModule3.Kod_DTable1.FieldByName('D_Ёмкости').AsFloat)/4*DataModule3.Kod_BTable1.FieldByName('B_Стенки').AsFloat)*1.6*DataModule3.Kod_STable1.FieldByName('S_Стеклопластика').AsFloat));//+floattostr((strtofloat(Edit2.Text)*2)+strtofloat(Edit4.Text));
 //DBEdit2.Text:=DBEdit1.Text+floattostr((strtofloat(Edit2.Text)*a)+strtofloat(Edit4.Text));
   c:=b+strtoint(DBEdit1.Text);
  DBEdit3.Text:=inttostr (c);

Но когда я пытаюсь расчитать возникает след ошибка: "is not a valid integer value"

одскажите пожалуйста в чем дело?