Puedes utilizar las API's GetCursorPos y SetCursorPos.
Un ejemplo sencillo puedes verlo con ésto; Crea un form nuevo y en el evento FormKeyDown coloca el siguiente código:
Código Delphi
[-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
pt:TPoint;
begin
GetCursorPos(pt);
if key = VK_UP then begin SetCursorPos(pt.x, pt.y - 1);
end
else if key = VK_DOWN then begin SetCursorPos(pt.x, pt.y + 1);
end
else if key = VK_LEFT then begin SetCursorPos(pt.x - 1, pt.y);
end
else if key = VK_RIGHT then begin SetCursorPos(pt.x + 1, pt.y);
end;
Application.ProcessMessages;
end;