PARSER POUR METTRE LES MOTS D'UNE VARIABLE STRING DANS UNE TSTRINGLIST

function Parser(chaine:string):TStringList;
var i,z,z1,items:integer;buf:string;
o:TStringList;
begin
 items:=0;
 o:=TStringList.Create;
  for z1:=1 to length(chaine) do begin
   if Copy(chaine,z1,1)=' ' then inc(items);
  end;
 inc(items);
  for i:=1 to items do begin
   if i=items then o.Add(chaine);
   z:=pos(' ',chaine);
   buf:=Copy(chaine,1,z-1);
   chaine:=Copy(chaine,pos(' ',chaine)+1,length(chaine));
   o.Add(buf);
  end;
 o.Delete(o.Count-1);
 Result:=o;
end;