请教怎样制作进行数据库操作时鼠标的等候状态(50分)

请教怎样制作进行数据库操作时鼠标的等候状态？
谢谢了！[]

设置Cursor为crSQLWait

function ExecuteSQL(SQLString:String):integer;
//执行SQL语句
begin
Result:=-1;
if not Assigned(MainDMForm) then exit;
screen.Cursor := crHourGlass;// 用screen对象,这样在整个程序界面内都是沙漏
try
with MainDMForm do
begin
CNMain.Errors.Clear;
QRMain.Close;
QRMain.SQL.Clear;
QRMain.SQL.Add(SQLString);
Result:=QRMain.ExecSQL;
end;
except
//记录错误到列表
RecordErrors;
end;
screen.Cursor:=crDefault;
end;

agree!