[Romanzes]

Я извращался примерно таким способом:

k:=KeyToAction(GetKeyPressed);
    if k=GA_DOWN then
      for i:=1 to 5 do
        if font32.MoveDown(1)=1 then counter:=counter+1;
    if k=GA_UP then
      for i:=1 to 5 do
        if font32.MoveUp(1)=1 then counter:=counter-1;