Comment extraire les mots d'une chaîne ?

L'objectif de cette méthode est d'extraire les mots qui se trouvent dans une chaîne (AnsiString) pour les placer dans une liste de chaînes (TStrings), comme la fonction explode de PHP. Les caractères qui servent à séparer les mots sont passés à la méthode.

Exemples d'utilisation :

extraireMots(Edit1->Text, Memo1->Lines);

TSysCharSet sep = TSysCharSet()