procedure Form1.Form1_Load(sender: Object; e: EventArgs);
begin
end;
procedure Form1.button2_Click(sender: Object; e: EventArgs);
var x, a, b, y : real;
begin
x := strtoint(textBox1.Text);
a := strtoint(textBox2.Text);
b := strtoint(textBox3.Text);
y := strtoint(textBox7.Text);
textBox5.Text :=IntToStr((x*a+b)*50); Ошибка в этой строке!
textBox9.Text :=IntToStr ((((x*a+b)*50)/2058));
textBox6.Text :=IntToStr (((((x*a+b)*50)/2058)+y));
end;