Var
iva,total:double;
n1,n2,nt:integer;
begin
total:=strtofloat(edit3.text);
iva:=total*0.09;
edit4.Text:=format('%f',[iva]);
n1:=strtoint(edit3.text);
n2:=strtoint(Edit4.text);
nt:=n1+n2;
edit5.Text:=format('%f',[nt]); edit5.text:=inttostr(nt); end
end;