Перенести управление стрелками на управление WASD

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(handle, 65, 0, 65);
RegisterHotKey(handle, 87, 0, 87);
RegisterHotKey(handle, 68, 0, 68);
RegisterHotKey(handle, 83, 0, 83);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(handle, 65);
UnregisterHotKey(handle, 87);
UnregisterHotKey(handle, 68);
UnregisterHotKey(handle, 83);
end;

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if msg.hotkey=87 then
 
end;

private
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

функция GetKeyState позволяет определить нажата ли та или иная клавиша в данный момент времени и включена или выключена клавиша переключатель в данный момент времени: 
 
      function GetKeyState(
        nVirtKey: Integer //код виртуальной клавиши (ASCII таблица)
      ): SHORT;