funktion soll TStringList zurückliefern

[KLS]

Ich habe hier einen ziemlich ähnlichen code... etwas älter und weiß momentan nicht ob er korrekt läuft...

Delphi-Quellcode:

function SplitString(WasSuchen,WorinSuchen : String) : TStringList;
var
  Stelle : integer;
begin
  Result := TStringList.Create;
  Stelle := 1;
  if not (Worinsuchen[Length(WorinSuchen)] = WasSuchen) then WorinSuchen := WorinSuchen+WasSuchen;
  while Length(WorinSuchen) > 0 do if WorinSuchen[stelle] = WasSuchen then
  begin
    Result.Add(Copy(WorinSuchen,1,Stelle-1));
    WorinSuchen := copy(WorinSuchen,Stelle+1,length(WorinSuchen));
    Stelle := 1;
  end else inc(Stelle);
end;