sumar o restar valores tipo money

[gonza_619]

ok no ay drama se me ocurrio esto q al parecer funciona

Código Delphi [-]
query1.SQL.Clear;
 Query1.sql.text:= 'Select costo as cost from cursos where cod_curso =1' ;
 query1.Active:=true;
 w:= Query1.FieldByName('cost').AsCurrency;

 query1.SQL.Clear;
 Query1.sql.text:= 'Select sum(importe) as Monto from cobranzas where alucurso =1' ;
 query1.Active:=true;
 j:= Query1.FieldByName('Monto').AsCurrency;

 if jthen
 begin
showmessage('chau');
end;