[Neftali [Germán.Estévez]]

(1) Pasa el número a string
(2) Coge el primer caracter Str[1]
(3) Añádele la COMA ','
(4) Añadele el resto de la cadena (función COPY)

Código Delphi [-]
Copy(Str,2, Lenght(Str));