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

[ecfisa]

Hola Ledian.

Código Delphi [-]
...
var
  str : string;
  ch  : char;
  posi: Integer;
begin
  str  := '10024888';
  ch   := '-';
  posi := 4; // 3+1 (entre 0 y 2)
  Insert(ch, str, posi);
  ...

Saludos