Подсчет количества нажатий клавиш управления курсором

implementation
 
{$R *.dfm}
{$J+}  //<< !!!!!!!!!!!!!!!!!!!!!!!!
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
const A: array[0..3] of integer = (0, 0, 0, 0);
begin
  if Key in [37..40] then A[Key - 37] := A[Key - 37] + 1;
  Label1.Caption := Format('Up - %d, Down - %d, Left - %d, Right - %d', [A[1], A[3], A[0], A[2]]);
end;

if Key in [VK_LEFT..VK_DOWN] then A[Key - VK_LEFT] := A[Key - VK_LEFT] + 1;

var
  Form1: TForm1;
  PrevKey: Word = 0;
 
implementation
 
{$R *.dfm}
{$J+}
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  A: array[0..3] of integer = (0, 0, 0, 0);
begin
  if (Key in [37..40]) and (Key <> PrevKey) then A[Key - 37] := A[Key - 37] + 1;
  PrevKey := Key;
  Label1.Caption := Format('Up - %d, Down - %d, Left - %d, Right - %d', [A[1], A[3], A[0], A[2]]);
end;
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  PrevKey := 0;
end;
 
end.