Si tienes delphi de la versión 5 en adelante tienes las propiedades Delimiter y DelimitedText del objeto TStrings, luego puedes usarla de la siguiente forma:
Código Delphi
[-]
Memo1.Lines.Delimiter := '|';
Memo1.Lines.DelimitedText := las_tramas;
Espero que sea lo que buscas.
Saludos Yusnerqui