String auf Tabulatoren prüfen

[Ajintaro]

Hallo DP !

Ich frage mich wie man die Anzahl der Tabulatoren eines Strings zählen kann. Ich habe eine Datei:

<TAB> Name: Horst
<TAB> Haustiere:
<TAB><TAB> Name: Fiffi
<TAB><TAB> Alter: 10
<TAB><TAB> Vorbesitzer
<TAB><TAB><TAB> Name: Manuel

Ich möchte alle gefundenen Namen in ein Treeview laden und dabei die Tabs als Level der Nodes nutzen. Ergebnis:

Code:

Horst
!-> Fiffi
 !-> Manuel

Mit Pos funktioniert es nicht:

Delphi-Quellcode:

if Open_file.Execute then memo1.Lines.LoadFromFile(Open_file.FileName);
for i := 0 to memo1.lines.count-1 do
begin

       //Root Name (Besitzer)
       iPos := Pos(#9+'"name":',memo1.Lines[i]);
       if (iPos > 0) then
       begin
         s := memo1.Lines[i];
          with tree_import.Items.AddFirst(nil,s) do
           begin
              Selected := true;
           end;
          iPos := 0;
          s := ''
       end;

       //1. Child Name (Haustier)
       iPos := Pos(#9+#9+'"name":',memo1.Lines[i]);
       if (iPos > 0) then
       begin
         s := memo1.Lines[i];
         tree_import.Items.AddChild(tree_import.selected,s);
       end;
   end;

Ich habe schon über eine Stinglist mit #9 als Delimiter eine Alternative nachgegrübelt, bin da aber auch nicht weiter gekommen. Wie kann ich denn die Vorkommen eines Tabulators effektiv zählen ?

Grüße,

JJ