Proszę o przerobienie kodu - wywołanie efektu ctrl + strzałka w górę.

Witam.
Potrzebuję przerobić kod tak, by podczas gdy wciśnięty jest klawisz CTRL to żeby program sam przytrzymywał strzałkę do góry dopóki nie puszczę CTR - chodzi mi o efekt ctrl + strzałka w górę.
Mam taki oto kod, jednak strasznie się on zwiesza i jakby nie zwalnia i jednego i drugiego klawisza.

function LowLevelKeybdHookProc(nCode, wParam, lParam : integer) : integer; stdcall;
var
  info : ^KeybdLLHookStruct absolute lParam;
  lpChar : word;
  kState : TKeyboardState;
  s:string;
  i:integer;
  inputArray: array[0..3] of TInput;
begin
result := CallNextHookEx(kHook, nCode, wParam, lParam);



with info^ do

case wParam of
  wm_keydown : begin

    GetKeyboardState(kState);


  if  GetKeyState(VK_CONTROL) = 0  then

  begin
  inputArray[0].Itype := INPUT_KEYBOARD;
  inputArray[0].ki.wVk := VK_UP;
  inputArray[1].Itype := INPUT_KEYBOARD;
  inputArray[1].ki.wVk := VK_UP;
  inputArray[1].ki.dwFlags := KEYEVENTF_KEYUP;


  SendInput(length(inputArray), inputArray[0], sizeof(TInput));
  end;

end;
end;
end;

Dzięki.