Может, следует добавить в проект фонт, прежде чем его загружать? :В
Я имею ввиду, что в списке ресурсов его нет, и при этом пытаешься его загрузить (LoadFont)
Да и вообще - да здравствует дебаг!
Хотя бы такой:
procedure z(_a:string);
begin
setcolor (random(128),random(128),random(128));
fillrect (0,0,240,30);
setcolor (random(256),random(256),random(256));
drawtext (_a,0,0);
repaint;
delay (1000);
end;
и юзать так
......некий код.........
z ('грузим шрифт');
......некий код.........
z ('выводим картинку');
......некий код.........
z ('еще что нибудь');
Надпись появляется? Код выполняется!
Надписи нет? Ошибка, привет!