Lendo um txt, separando as letras em variaveis

Amigos, Boa noite a todos...

Estou tendo um probleminha com um sistema, preciso fazer a leitura de um .txt (isso já foi feito) depois de coloca-lo em um Memo (já foi feito), preciso de uma rotina para primeiro separar cada palavra dentro de uma váriavel (separa-las pelo espaço), depois separar cada letrinha das palavras dentro de variavel equivalentes as palavras do texto, pois preciso passar a maquina de Moore, para gerar os tokens...

exemplo:

Select *
From professores
Where prof_sal < 1000

então o que estou fazendo no delphi...

1º - lendo o arquivo txt
2º - jogando para uma váriavel ´ArquivoTexto´ e para um Memo para visualização do usuário.
3º - quero separar cada palavra do texto dentro de uma variável, ex:
palavra01.text := select
palavra02.text := *
palavra03.text := from
etc...
4º - preciso separar cada palavras em conjunto de letrinhas, ex:
palavra01_letra01.text := s
palavra01_letra02.text := e
palavra01_letra03.text := l
palavra01_letra04.text := e
palavra01_letra05.text := c
palavra01_letra06.text := t

5º - Passar isso pela maquina de moore, para poder indentificar os Tokens


Desde já muito grato!