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

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var leftkey:word;
  begin
leftkey:='vk_'+listbox1.Items[0];
if leftkey=key then
showmessage('Pfeiltaste LINKS wurde gedrückt.');
end;
end.                    

1:
2:
3:
4:

case listbox1.itemindex of
  0: leftkey :=vk_left;
  1: leftkey := vk_right;
 ...                    

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

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var leftkey:word;
begin
case listbox1.itemindex of
  0: leftkey :=vk_left;
  1: leftkey :=vk_right;
end;
if leftkey=key then
showmessage('Pfeiltaste LINKS wurde gedrückt.');
end;
end.                    

1:
2:
3:
4:

Name(string) Tastencode(integer)
Links        vk_left
a              ord(a)
...                    

1:
2:
3:
4:

case listbox1.itemindex of
  0: leftkey :=vk_left;
  1: leftkey :=vk_right;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

ich finde die werte jetzt nicht.
aber hier müsen die werde der tasten drinen stehen also ich glaube 49 war für 1 oder so.
die datei sieht dann so aus:

procedure Tastenladen;
var
  keys:TStringList;
  i:Integer;
begin
  keys:=TStringList.create;
  with Keys do begin
    loadFormFile('E:\key');
    for I:=0 to count -1 do begin
      ListBox1.Items.add(strings[i]);
    end;
  end;

bei onkey down:
procedure keyTaste(key:Char);
begin
  
  ShowMessage(ord(ListBox1.items.strings[listbox1.itemindex])); 
  // ord oder chr muss halt testen
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Code: 

ich finde die werte jetzt nicht. 
aber hier müsen die werde der tasten drinen stehen also ich glaube 49 war für 1 oder so. 
die datei sieht dann so aus: 

procedure Tastenladen; 
var 
  keys:TStringList; 
  i:Integer; 
begin 
  keys:=TStringList.create; 
  with Keys do begin 
    loadFormFile('E:\key'); 
    for I:=0 to count -1 do begin 
      ListBox1.Items.add(chr(strings[i]));  // ord oder chr
    end; 
  end; 

bei onkey down: 
procedure keyTaste(key:Char); 
begin 
  
  ShowMessage(ord(ListBox1.items.strings[listbox1.itemindex])); 
  // ord oder chr muss halt testen 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

type
  //eigener Recordtyp
  RTasten = record
    Name: string;
    Code: word;
   end;
  TForm1 = class(TForm)
    ListBox_links: TListBox;
    ListBox_rechts: TListBox;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure ListBoxClick(Sender: TObject);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
  private
    { Private-Deklarationen }
    Tasten:array[0..4] of Rtasten;   //tastenarray
    leftkey,rightkey:integer;        //tasten für links und rechts
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var I:integer;
begin
  //array aufbauen
  //irgendwie muß auch Tasten[0]:=Rtasten('Name',Code) gehen, will D3 aber nix von wissen
  Tasten[0].Name:='Crsr links';Tasten[0].Code:=vk_left;
  Tasten[1].Name:='Crsr rechts';Tasten[1].Code:=vk_right;
  Tasten[2].Name:='a';Tasten[2].Code:=ord('A'); //!! Großschreibung beachten
  Tasten[3].Name:='b';Tasten[3].Code:=ord('B');

  //listboxen aufbauen
  for i:=0 to 4 do
    begin
      ListBox_links.items.add(tasten[i].name);
      ListBox_rechts.items.add(tasten[i].name);
    end;
  //erstmal werte zuweisen
  leftkey:=0;   //index
  rightkey:=vk_reight; //code direkt
end;

procedure TForm1.ListBoxClick(Sender: TObject);
begin
  //ereignis routine beiden LB zuweisen
  //entweder du speicherst den Index, oder den tastenCode selber
  //hat Vor und nachteile
  //z.B. Vorteile  index: kannst einfacher speichern
  //               code : schneller beim abfragen
  if sender=ListBox_links then leftkey:=ListBox_links.itemindex;
  if sender=ListBox_rechts then rightkey:=Tasten[ListBox_rechts.itemindex].code;
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  //ich nehm mal nen Mwemo zum probieren, wieder die 2 Möglichkeiten beachten
  if key=Tasten[leftkey].code then memo1.text:=memo1.text+'links';
  if key=rightkey then memo1.text:=memo1.text+'rechts';
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
// Alle tasten links
if key=vk_left then
if listbox1.Items[0]='0'then
auto.Left:=auto.Left-3;
if key=vk_NUMPAD4 then
if listbox1.Items[0]='13'then
auto.Left:=auto.Left-3;
if key=ord('A') then
if listbox1.Items[0]='5'then
auto.Left:=auto.Left-3;
if key=ord('L') then
if listbox1.Items[0]='9'then
auto.Left:=auto.Left-3;
end;                    

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

// Alle tasten links 
if key=vk_left then 
if listbox1.Items[0]='0'then 
auto.Left:=auto.Left-3; 
if key=vk_NUMPAD4 then 
if listbox1.Items[0]='13'then 
auto.Left:=auto.Left-3; 
...                    

1:
2:
3:
4:

  //leftkey enthält den Index im Array
  if key=Tasten[leftkey].code then auto.Left:=auto.Left-3; 
   //oder rightkey enthält den Tastencode
  if key=rightkey then auto.Left:=auto.Left+3;