[Raptor]

Mas sencillo todavia

Screen.Cursor:=crHourGlass;
try
Aqui pones tus procesos
procesos....
finally
//Cuando termine poner el cursor por default...
Screen.Cursor:=crDefault;
end;

suerte...