Acentos sendo trocados em Tmemo

[tiujhou 7]

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