[axer]

Проблема возникает в следующем событии...

Код:

procedure TForm2.Edit10Click(Sender: TObject);
var
zp:real;
begin
zp:=(strtofloat(edit4.text)-( strtofloat(Edit6.Text)*strtofloat(Edit9.Text) ) *0.2;
Edit10.Text:=floattostr(zp);
end;

Админ: Пользуемся тегами для оформления кода!

На моем компьютере, на котором программа писалась, все работает хорошо, ошибок не возникает.
На других компьютерах, протестировал на 3ех, возникает эта ошибка.
Пожалуйста помогите, не понимаю из-за чего...
Запятую не ввожу (вообще через keypress запретил), поля Edit не пустые.