Delphi dicas

Como mostrar o mouse como uma ampulheta

Try

Screen.Cursor := crHourGlass;

{ Escreva o ação a executar aqui }

finally

Screen.Cursor := crDefault;

end;



Application.ProcessMessages;