Tastencodes in Case-Anweisung

[dangerfreak]

Hallo ich will grad ein Programm schreiben was Tastencodes abfängt, und da wollte ich eine Case-Anweisung schreiben aner bekomm das nicht hin. Habt Ihr da eine Idee?
Hier meine IF-Anweisung zu dem Thema:

Delphi-Quellcode:

function Tasten2: Integer;
begin
for i:=0 to high(keys) do keys[i]:=GetAsyncKeyState(i)=0;
if keys[VK_Space]=false then result:=VK_Space else if
keys[VK_DOWN]=false then result:=VK_DOWN else if
keys[ord( 'M' )]=false then result:=ord( 'M' ) else result:=i;
end;

mfg Dangerfreak