Mas dudas con el Memo

[bustio]

Hola nuevamente:

Lo que necesito hacer con el memo es crear una funcion que me parsee el contenido del memo; es decir, que lo recorra linea a linea y me ponga dentro de un StringList todas las palabras y simbolos que este tiene(estas palabras y simbolos tienen que estar con al menos un espacio antes y despues de la primera y ultima letra). Utilice esta variante pero no me hace el efecto deseado. Si alguien tiene alguna otra variante mas efectiva, agradezco la ayuda.

GRACIAS!!!

type 
  TSeparator = set of char;

  ...............


function GetTokens(s:string; separators: TSeparator): TStringList;
var
  slist: TStringList;
  test, token: string;
begin
  slist := TStringList.create;
  test := s;
  result := slist;
  while (Length(Test)>0) do
  begin
       while (Length(Test)>0) and (test[1] in separators) do
      Delete(test,1,1);
    if (Length(Test)=0) then
      exit;
    token := '';
    while (Length(Test)>0) and (not (test[1] in separators)) do
    begin
      token :=  token + test[1];
      Delete(test,1,1);
    end;
    slist.add(token);
  end;  
end;