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.