Должно быть что-то типа:
program textik;
uses font32;
var j : integer;
begin
font32.init(2);
font32.font(1);
font32.LoadFont('Times_new_roman_72');
font32.TextWindow(0, 0, getwidth, getheight);
j := font32.Format('Ктулху Фхтагн!', 0);
font32.DrAwTextWindow;
repaint;
delay(10000);
end.