Inhalt eines Strings herausschneiden

[dws]

So habe es jetzt alles soweit nur ich bekomme das nicht hin die einzelnen datensätze in ein aray zu speichern
habe es damit probiert

Code:

var
  test: string; // da sind die datensätze drin
  test3: Array [1..7] of string;
  count: integer;
  i: integer;
begin 

listitem:= ssl_anzeige.Selected;
test:=listitem.Subitems.GetText;
count:=1;
i:=1;

while not (Tokenize(test, count, '#') = '') do 
begin 
  test3[i]:=(Tokenize(test, count, '#')); 
  inc(count); 
  i:= i+1;
end;

ssl_VNameedit1.text:= test3[1];
ssl_VNameedit2.text:= test3[2];
ssl_VNameedit3.text:= test3[3];
ssl_VNameedit4.text:= test3[4];
ssl_VNameedit5.text:= test3[5];
ssl_VNameedit6.text:= test3[6];
ssl_VNameedit7.text:= test3[7];

Nur er gibt immer wieder den kompletten datensatz aus.