Fórum calcuar valores monetários #166575

olá pessoal, estou desenvolvendo um sistema que precisa calcular valores monetários obtendo estes valores de um campo de uma tabela, as tabelas não estão interligadas fisicamente, estão apenas pelo código eu absorvo valores dos campos. o problema é que operando com datas eu consegui fazer o cálculo somando-as com uso de variáveis, tenho que fazer o mesmo com os valores monetários... toda vez que insiro um novo registro a uma tabela, preciso verificar se um certo campo, equivalente a outro resulta em uma verificação, esta busca um valor de um banco de dados (monetário) e atribui a uma variável, tentei um laço if, mas os valores não somam, eles apenas fixam-se no resultado, um substituido pelo outro... sei que é complexo... minha cabeça já tá doendo... se alguem puder me socorrer agradeço, se ficou muito complicado como expliquei, segue o código que utilizei com as datas, que é semelhante ao que quero fazer com o monetário...

procedure TFormMaster.EditChange(Sender: TObject);
begin
if DataMod.DbLodosCategoria.AsString=´DADO1´ then
begin
Dia:=Dia+1;
DataMod.DbFichData_1.AsString:= DateToStr(Date+Dia);
end;
if DataMod.DbLodosCategoria.AsString=´DADO2´ then
begin
DataMod.DbFichData_2.AsString:= DateToStr(Date+1);
end;
end;