Problem mit procedure Split()

[uragan]

wie siehts aus wenn man das ganze so macht?
weiß jemand wieso das ganze nicht klappt?

Delphi-Quellcode:

var

list2: TStringList;
res : string;
i : integer;

procedure Split(const Delimiter: Char; Input: string; Strings: TStrings);
var
   setstring : string;
   StringsTemp : TStringList;
begin
   StringsTemp := TStringList.create;
   Strings.Clear;
   while setstring <> '' do begin
   StringsTemp.Clear;
   StringsTemp.Delimiter := Delimiter;
   StringsTemp.DelimitedText := Input;
   Strings.Add(StringsTemp[0]);
   setstring := StringsTemp[0];
   Delete(Input,0,Length(StringsTemp[0])+1);
   end;
end;

begin
list2 := TStringList.create;
res := 'test1'+#0+'test1'+#0+'test1'+#0 ;
Split(#0, res, list2);
for i := 0 to list2.count-1 do begin
   ShowMessage(list2[i]);
end;
end.

EDIT::

Hab das ganze versucht in eine datei abzuspeichern

Code:

62 6c 61 62 6c 61 00 0d 0a 
62 6c 61 62 6c 61 32 00 0d 0a 
62 6c 61 62 6c 61 33 00 0d 0a

Es wird in der Datei angezeigt

Code:

blabla
blabla2
blabla3

Wenn ich per TStringList.LoadFromFile die selbe datei lade, dann wird nur der erste eintrag abgerufen, und danach ist stop.
D.h. nach wiederholtem abspeichern auf die selbe datei ist es nur noch:

Code:

62 6c 61 62 6c 61 00

Code:

blabla

echt komisch

PS: Datei liegt im Anhang, falls jemand probieren möchte