Eccoti un pò di roba...ciao!

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowCursor(False); // Hide cursor
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
ShowCursor(True); // Show cursor
end;


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


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