[[Lepe]]

Yo de refilón he visto otro detalle:

Código Delphi [-]
 else begin
     ADOSPEdadCuentas.Parameters.ParamByName('@Edad1').Value := StrToInt (EditEdad1.Text);
     ADOSPImporteCuentasxPagar.Parameters.ParamByName('@Dias1').Value := StrToInt (EditEdad1.Text);
     end;
     ADOSPImporteCuentasxPagar.ExecProc;
     EditImporte.Text := ADOSPImporteCuentasxPagar.Parameters.ParamValues ['@Importe'];
  ADOSPEdadCuentas.Open;
end;

Aunque el código original está bien identado, falta el begin .. end del else, espero que sea error de copiar y pegar.

Saludos