[angvelem]

Дополнительно по шрифтам: если уж так хочется использовать выбранные шрифты, их нужно распространять вместе с программой и использовать такой код:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  isFont := AddFontResource('MyFont.ttf')) <> 0;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if isFont then
  begin
    RemoveFontResource('MyFont.ttf'));
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
  end;
end;