Dada una cadena con palabras y separadores, mostrar cada palabra en una linea de un memo

Por Saiyine  el 0000-00-00 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 472

Esto es muy especifico, lo pidio sul__ en #delphi , pero lo he puesto por si a alguien le interesa...

// PartirCadenasAMemo('hola&soy!pepe',' &!',Memo1);
procedure PartirCadenasAMemo(cadena,malos : string; salida : Tmemo);
var
i : integer;
aux : string;
begin
        aux:='';
        for i:=1 to length(cadena) do
        if pos(cadena[i],malos)>0 then
        begin
                salida.Lines.Add(aux);
                aux:='';
        end else aux:=aux+cadena[i];
        salida.Lines.Add(aux);
end;

Una utilidad interesante seria cambiar el tipo de salida por una lista de cadenas y usarlo para para representar dinamicamente en memoria bases de datos del disco.