No scusami è solo questo il codice che devi usare:


procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowCursor(false);
end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enable := false;
Timer1.Enable := true;
ShowCursor(true);
end;