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;