uses ... , LCLType;...procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=VK_UP then mouseinput.MoveBy([], 0, -1);end;
...implementationuses MouseAndKeyInput, LCLType;
unit1.pas(0,0) Fatal: Can not find unit MouseAndKeyInput used by Unit1.and logicaly then:unit1.pas(87,32) Error: Identifier not found "mouseinput"