[Vandam708]

Здраствуйте помогите создать такую процедуру, в edit вводим какую либо сумму например 100 затем 4 % от этой суммы нужно автоматически внести в поле s2 а остаток в поле s1

[PS11011010]

Код:

i:=StrToInt(Edit1.Text);
per:=4;
S1.Text:=FloatToStr(i/100*per);
S2.Text:=FloatToStr(i/100*(100-per));