Añadir carácter según una posición x a un String

[Ledian_Fdez]

Chicos quizas me complique con la función y no supe explicarme. Se los voy a poner mas sencillo, digamos que quiero a una cadena de caracteres insertarle en la posicion x otro caracter.

Código Delphi [-]
Pos := 3;
Caracter := '-'
cadena := InsertaCaracter ('10024888', Pos, Caracter);
//cadena = 100-24888

Es algo como esto, sabiendo eso yo lo adapto a lo que quiero mas arriba.

gracias de antemano.