Strings aus einem Textfile in ein Array einlesen

[beljo]

Hallo,
ich möchte gerne Strings aus einem Textfile in einen array einlesen.
Das Textfile sieht so aus.

• 
  Test1 Test2 Test3 Test4 Test5 Test6

Die Strings sind durch Tabs getrennt.
Leider kriege ich immer nur den ersten String in mein Arrayfeld rein.
hier mein Quellcode

Delphi-Quellcode:

procedure FEM;
var
SL             : TStringlist;
i,t,c,k        : integer;
s,z            : String;
strings,zwei,drei,vier,fuenf : Array [0..10] of String;
begin
SL:=TStringlist.Create;
SL.LoadFromFile('C:\Temp\Test.TXT');


 s:= sl[1];
 for t := 0 to 10 do
 begin
   While s[t] = #9  do
   begin
    delete(s,t,pos(#9,s)-1);
   end;
  z := (copy(s,t,pos(#9,s)-1));
  Strings[t]:=(z);
 end;
//...

Vielleicht kann mir jemand sagen wie ich die weiteren Srings auch in mein Array reinbekommen