TTF + Delphi 5

Проблема такова нужно добраться до символов шрифта, до которых tmp=Chr(n); не достает, в частности, нужна лат. буква 'a' с точками на верху (например, у Arial`а).

Решение 1
Установить шрифт, отредактировав его так, чтобы всё, что надо можно было достать через Chr(n).
Нашел такую вакцину

Добавить фонт (.fon, .fot, .fnt, .ttf) в систему можно след. образом
{$IFDEF WIN32}
AddFontResource( PChar( my_font_PathName { AnsiString } ) );
{$ELSE}
var
ss array [ 0..255 ] of Char;
AddFontResource ( StrPCopy ( ss, my_font_PathName ));
{$ENDIF}
SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );
Убрать его по окончании работы
{$IFDEF WIN32}
RemoveFontResource ( PChar(my_font_PathName) );
{$ELSE}
RemoveFontResource ( StrPCopy ( ss, my_font_PathName ));
{$ENDIF}
SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );

Но, все-равно не получается. Пособите! Поделитесь цельным работающим кодом!!!

Решение 2
Уж ладно бы с этими шрифтами, может есть какая команда, чтобы дорваться до символов. Проведите ликбез, плыз!