Dividir string según un carácter

1. Poner un "Edit", un "Botón" y un "Memo"
2. "Doble clic" de "Botón":
   
   Código:

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

3. Ejecutar programa, introducir una cadena separada por ";" y probar...