Hola.
Lo que puedes hacer es usar la instrucción StringReplace para eliminar de la cadena los caracteres extraños que pueda haber, p.e.:
Código Delphi
[-]
Cuenta:=StringReplace(Cuenta, '/', '', [rfReplaceAll]);
Cuenta:=StringReplace(Cuenta, '-', '', [rfReplaceAll]);
... y así por cada uno de los caracteres raros que creas que puede haber.
Esto al final tiene que darte una cadena de 24 caracteres, si no es así tendrás que revisarla manualmente.
Saludos