Wenn du den Code für deine Tasten suchst, dann versuch mal das hier
Delphi-Quellcode:
for i:=0 to 65535 do
if Windows.GetAsyncKeyState(i)<0 then Caption:=Caption+IntToStr(i)+',';
Gewünschte Tasten sollten während dem Ablauf der Schleife gedrückt gehalten werden.