Problem mit procedure Split()

[uragan]

Hallo

Ich hoffe ich bin hier richtig.
Ich hab ein kleines problem mit der Funktion Split()

was ist den hier falsch?, wieso bekomme ich das ganze nicht gesplittet?

Delphi-Quellcode:

program uragan;

var
list: TStringList;
s : string;
i : integer;

procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;



begin
list := TStringList.create;
s := 'blabla' + HStr('00') + 'blabla2' + HStr('00') + 'blabla3' + HStr('00') + 'blabla4' + HStr('00') + 'blabla5' + HStr('00') ;
Split(HStr('00'), s, list);
for i := 0 to list.count-1 do begin
ShowMessage(list[i]);
end;

end.