Как сделать замену символов в Memo на личные?

[Кольша]

function ProgramDirectory: String;
begin
ProgramDirectory:=extractfilepath(paramstr(0))
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RemoveFontResource(StringToOleStr(P rogramDirectory+'имя файла'));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource(StringToOleStr(Prog ramDirectory+'имя файла'));
//Или так
//AddFontResource('С:\Путь\pass.ttf') ;
Memo2.Font.Name:='имя шрифта ';
end;

[Зод]

у меня то *.tte и вот я пишу этот код, подгружаю файл, потом загружаю в Мемо файл 1.txt в котором есть пару символов и все равно отображает неизвестно что.

function ProgramDirectory: String;
begin
ProgramDirectory:=extractfilepath(paramstr(0))
end;

procedure TForm1.Button1Click(Sender: TObject);
var
t:Tstringlist;
begin
t:=Tstringlist.create;
t.loadfromfile('1.txt');
Memo2.Text:=utf8toansi(stringreplace(Memo2.Text,'é',t.text[2],[rfreplaceall]));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Lines.LoadFromFile('1.txt');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RemoveFontResource('pass.tte');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 AddFontResource('pass.ttf');
 Memo2.Font.Name:='pass.tte';
 end;

end.

[Зод]

Страно что блокнот понимает их читая системные шрифты а мофя программа с явно указанным файлом не может.
По сути если так смотреть то должно быть какое-нибудь средство для прогрузки спец. символов. Сердечки же в Memo отображаются.
Неужели ни кто не сталкивался с такой проблемой?