Fórum Ajudem-me com o Memo. #161158

Pessoal preciso fazer isso. Tenho um memo(memo1), nesse memo tenho itens:
@00Nome&
@22Nome2 &

preciso separar em duas variáveis os números e as letras tipo:

if memo1.text[x] = ‘@’ then
begin
numero:= pega os numeros ( os dois numeros, no primeiro caso seria 00)
end;

depois preciso pegar as letras tipo assim:

if memo1.text[x+1 <> ‘&’ then
begin
nome:= pega as letras ( pega todas as letras até o caracter ‘&’. Nesse caso seria a palavra Nome)

Valeu pessoal, espero que vocês me ajudem.
By OverFlow.

“ Nunca tome atalhos que prometam coisas rápidas e fáceis. As coisas bem feitas levam tempo e sabedoria.” Por mim mesmo.