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;