当用户点击了“查询”按纽后，怎么将鼠标变成漏斗形状，从而使得用户不可以再点击

当用户点击了“查询”按纽后，如何将鼠标变成漏斗形状，从而使得用户不可以再点击？
当查询结果出来后，又将鼠标变成正常的形状，使鼠标变为可用状态。

请高手指点，谢谢。

[解决办法]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
BitBtn1.Cursor := crHourGlass;
BitBtn1.Enabled := False;
try
sleep(2000);
finally
BitBtn1.Enabled := True;
BitBtn1.Cursor := crDefault;
end;
end;