Как управлять курсом мыши? 
Ответ: Один из вариантов


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  NewX,NewY : integer;
  pPos : TPoint;
begin
  GetCursorPos(pPos);
  NewX := pPos.x;
  NewY := pPos.y;
  if key = VK_UP then
    NewY := NewY - 1;
  if key = VK_DOWN then
    NewY := NewY + 1;
  if key = VK_LEFT then
    NewX := NewX - 1;
  if key = VK_RIGHT then
    NewX := NewX + 1;
  SetCursorPos(NewX,NewY);
end;

 