很简单的问题。鼠标形状。(50分)

我以下的这段程序，当我在edit1内输入TC。edit2内输入10000，点击button1。
鼠标为什么不变为漏斗型？仍然还是普通的箭头。
只是窗体不能被拖动。只有插入完毕后。窗体才能被拖动。
但鼠标自始至终都没有变成漏斗型。为什么啊？

procedure TfrmMain.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If Not(Key In['0'..'9',#8]) Then
Key:=#0 ;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
Var
i:Integer;
Item:String;
begin
If (Edit1.Text = '') Or (Edit2.Text = '') Then
Begin
Exit;
End;
Try
Begin
Self.Cursor :=crHourGlass;
adoCommand1.CommandText:='';
adoCommand1.CommandText:='delete From tbLabel';
adoCommand1.Execute;
adoCommand1.CommandText :='';
adoCommand1.CommandText :='Insert Into tbLabel (ItemPrint) Values o)';
For i:=1 To StrToInt(Edit2.Text) Do
Begin
Item:=trim(Edit1.Text)+trim(IntToStr(i));
adoCommand1.Parameters.ParamByName('o').Value:=Item;
adoCommand1.Execute;
End;
End
Finally
Self.cursor :=crDefault;
End;

把Self.cursor改成Screen.Cursor;

应该是：Screen.Cursor := crHourGlass.

谢