Delphi mudar o Cursor

var

Save_Cursor:TCursor;
Begin
Save_Cursor := Screen.Cursor;

Screen.Cursor := crHourGlass; { Show hourglass cursor }

try
{ Do some lengthy operation }
finally
Screen.Cursor := Save_Cursor; { Always restore to normal }
end;

end;