Ecco la procedura
codice:procedure MostraResiduo(OutS:TEdit); var Saldo,Conc,Diff:Currency; begin Saldo:=DataM_Noleggi.T_PagamentiSaldo.Value; Conc:=DataM_Noleggi.T_PagamentiPrezzoConc.Value; If (Saldo>0) OR (Conc>0) Then //Differenza OutS.Text:=CurrToStr(Conc-Saldo-DataM_Noleggi.T_PagamentiAnticipo.Value ) Else OutS.Text:='...'; End;