Hola.
Está claro que la duda está resuelta y de una forma excelente.
Pero, para mí, lo hubiera resuelto en 2 líneas de código:
Código Delphi
[-]
stringreplace( dbedit2.text, '$', '', ([rfreplaceall]) ;
stringreplace( dbedit2.text, '.', '', ([rfreplaceall]) ;
El código es más largo, aunque me parece más sencillo de revisar si hay un error.
Saludos.