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;
begin
ShowMessage( SepararTipoIdentificacion('52986352-1') );
end;