procedure TForm1.EditsChange(Sender: TObject);
begin
EditTotal.Text:= CurrToStrF(StrToCurrDef(EditARS.Text, 0) +
StrToCurrDef(EditUSD.Text, 0) * StrToCurrDef(EditCotiz.Text, 0) +
StrToCurrDef(EditCheq1.Text, 0) + StrToCurrDef(EditCheq2.Text, 0) +
StrToCurrDef(EditCheq3.Text, 0) + StrToCurrDef(EditCheq4.Text, 0),
ffCurrency, 2);
end;