[ogalonzo]

Puse una respuesta al mismo problema en otro thread, como no tengo permisos aún para postear enlaces, replico mi comentario:

1. Deposita un TEdit, un TButton y un TMemo
2. Haz doble clic en el TButton y pon este código:
   

     Memo1.Lines.Clear();
     ExtractStrings([';'], [' '], PChar(Edit1.Text), Memo1.Lines);

3. 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.

Saludos.