Acentos sendo trocados em Tmemo

Boa tarde...

Estou tentando criar um programa em delphi onde digito em um tedit um camando dos e ele retorna o resultado em um Tmemo..

parecido com este:

http://delphidabbler.com/tips/61

Mas o problema, é que quando tem acentos, ele troca as letras... em html dava para arrumar... mas em delphi não tenho ideia... alguém sabe como faço para arrumar isso?

ex: N£mero = Número