//guarda el cursor actual TCursor prevCursor = Screen->Cursor; //establece el reloj de arena Screen->Cursor = crHourGlass; //vuelve a poner el cursor original Screen->Cursor = prevCursor;