try Screen.Cursor := crHourGlass; {buraya kodunuzu yazın...}finally Screen.Cursor := crDefault;end;Application.ProcessMessages;