Formato a un Char

[dec]

Hola,

No sé si yo sería muy descabellado que utilizaras alguna función para lo que necesitas:

Código Delphi [-]
function SepararTipoIdentificacion
 (tipoIdentificacion: string): string;
var
  i: integer;
begin
  result := '';
  for i := 1 to Length(tipoIdentificacion) do
    result := result + tipoIdentificacion[i] + ' ';
  result := Trim(result);
end;

// Ejemplo de uso

begin
  ShowMessage( SepararTipoIdentificacion('52986352-1') );
end;