Prueba con ExtractStrings(); intenta esto:
- Deposita un TEdit, un TButton y un TMemo
- Haz doble clic en el TButton y pon este código:
Código:
Memo1.Lines.Clear();
ExtractStrings([';'], [' '], PChar(Edit1.Text), Memo1.Lines);
- Corre el programa, introduce una cadena separada con puntos y comas y listo, cuando hagas clic en el botón verás que el memo se llena con las cadenas.
Espero sirva.