Mouse - esconder o cursor

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowCursor(false); //esconde o cursor

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  ShowCursor(true); //mostrar o cursor

end;