更改当前鼠标的形状

Screen->Cursor = crDefault;

Screen->Cursor = crCross;

Screen->Cursor = crArrow;

Screen->Cursor = crHelp;

Screen->Cursor = crHourGlass;

Screen->Cursor = crSQLWait;