Попробуй что-то типа такого:
var current_font: integer;
......
current_font:=0;
......
if getkeyclicked = KE_KEY0 then
begin
current_font:=current_font+1;
if current_font = 3 then current_font:=0;
Font(current_font);
DrawTextWindow;
Repaint;
Delay(200);
end;