где ошибка?

[maximusdima]

Помогите пожалуйста найти ошибку:

procedure TForm1.Button1Click(Sender: TObject);
begin
Lebel7.Caption := IntToStr((StrToInt(Edit1.Text) * StrToInt(Edit2.Text)) / (StrToInt(Edit3.Text) * 15));
end;

[Sparkman]

Сообщение от maximusdima

Помогите пожалуйста найти ошибку

procedure TForm1.Button1Click(Sender: TObject);
begin
Lebel7.Caption := FloatToStr((StrToInt(Edit1.Text) * StrToInt(Edit2.Text)) / (StrToInt(Edit3.Text) * 15));
end;

[MaxNik2009]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Lebel7.Caption := IntToStr((StrToInt(Edit1.Text) * StrToInt(Edit2.Text)) div (StrToInt(Edit3.Text) * 15));
end;

[Serge_Bliznykov]

ну и я ещё добавлю свои "пять копеек":

  if  StrToInt(Edit3.Text) <> 0 then
     Label7.Caption := FloatToStr((StrToInt(Edit1.Text) * StrToInt(Edit2.Text)) / (StrToInt(Edit3.Text) * 15));
  else 
     Label7.Caption := 'Ошибка: деление на ноль.';

ну и Try .. except ещё не помешает - если d Edit'ах будут не целые числа, чтобы не было ошибок выполнения...

[maximusdima]

Всем огромное спасибо!!!