Funções úteis para trocar o status do ponteiro do mouse.

{Estas funções permitem que vc alterne rapidamente o ponteiro do mouse quando precisar fazer algum processamento, para uma ampulheta ou voltar o ponteiro para o status normal.}

Procedure WaitMouse;
begin
Screen.Cursor := crHourglass;
end;

Procedure ResetMouse;
begin
Screen.Cursor := crDefault;
end;

{Quanto precisar alternar o ponteiro em seus programas, é só chamar assim:}

Try
WaitMouse;
--------
// Seu processamento aqui.
-------
Finally
ResetMouse;
end;