[Delphi] Tabulatory, pliki tekstowe, string itp

Mam pytanko ?-)
mam kodzik
*------------------------------------------------------------------
begin
AssignFile(plik,'c:\proba.txt');
Reset(plik);
begin
repeat
ReadLn(plik,s);
Repeat
j:=Pos('\',s);
d:=copy(s,j - Length(s),Length(s));
insert(chr(9),d,j+1);
insert(chr(13),d,j+1);
delete(d,1,length(s)- length(d));
memo1.Lines.Add(d);
until s ' ';
until Eof(plik) = true;
end;
closeFile(plik);
*---------------------------------------------------
ktory to ma zadanie z pliku tekstowego gdzie jest zapisana scieżka dajmy na to c:\windows\bleble
d:\windows\sys\1
...
ma ten kod tą scieżke zapisać (w memo na przyklad) w postaci
c:\
[tabulator] windows\
[tabulator][tabulator] bleble
d:\
[tabulator]windows\
[tabulator][tabulator]sys\
[tabulator][tabulator][tabulator]\1

i tak dalej
ale niestety kodzik moj robi tylko
c:\
[tabulator] windows\bleble
niestety nie dodaje kolejnych tabulatorow i enterow po każdym napotkanym znakiem "\"
:((
co jest nie tak ???
i jak powinno byc dobrze żeby dzialało jak trzeba
Pozdraiwam

--
-= pozdrawiam Oskar =- (delphi 6 GG:2792614)

ta procedura zrobi z lini [np. c:\windows\system] to co chciales, i wrzuci to do memo

procedure TForm1.Zdekoduj(Linia: String);
var
S, T, R: string;
n, c: Integer;
begin
if Linia[Length(Linia)]&lt&gt'\' then Linia:=Linia+'\';
S:=Linia;
Delete(S,4,Length(S));
Memo1.Lines.Add(S);
S:=Linia;
Delete(S,1,3);
c:=1;
repeat
T:=S;
Delete(T,Pos('\',T),Length(T));
R:='';
for n:=1 to c do
begin
R:=R+#9;
end;
Memo1.Lines.Add(R+T);
Inc(c);
Delete(S,1,Pos('\',S));
until Pos('\',S)=0;
end;--W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.