[ecfisa]

Hola.

Te pongo dos formas para hacerlo:

Código Delphi [-]
begin
var
  r1,r2: Currency;
begin
  // Ej. 1
  r1:= Table1.FieldByName('Campo1').AsCurrency +
       Table1.FieldByname('Campo2').AsCurrency;
 // Ej. 2
  r2:= DBEdit1.DataSource.DataSet.FieldByName('Campo1').AsCurrency +
       DBEdit2.DataSource.DataSet.FieldByName('Campo2').AsCurrency;  
end;

Saludos.