Все работает. Еще раз большое спасибо.
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
e1,e2:Integer;
price_int, price_float: Integer;
s, rez: real;
begin
e1 := StrToInt(Edit1.Text);
e2 := StrToInt(Edit2.Text);
s := 34.40;///Стоимость
rez := (e1-e2)*s;
price_int := trunc(rez);
price_float := trunc(100*(rez-price_int));
Edit3.Text := IntToStr(price_int)+' руб.'+IntToStr(price_float);
end;
end.
Об авторе:
Пользуюсь Delphi Enterprise Version7.