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;