1:
2:
3:
4:
5:
6:
7:
8:

case key of
vk_left : begin taste1:=false; end;
vk_right : begin taste2:=false; end;
vk_down : begin taste3:=false; end;
vk_up : begin taste4:=false; end;
56 : begin taste5:=false; end;
47 : begin taste6:=false; end;
....					

1:
2:

case key of
$56: begin taste5 := false; end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  Keys: Array[0..255] of Boolean;

procedure OnKeyDown(...);
begin
  Keys[Key]:=true;
end;

procedure OnKeyUp(...);
begin
  Keys[Key]:=false;
end;					

1:

if Keys[VK_SPACE] then...					

1:

if Keys[VK_LEFT] then...					

1:

if Keys[Ord('A')] then...					

1:

if key = ord('a') then...