我用sakmail做邮件发送程序的时候遇到的问题，在线等待

Question

邮件还是能发出去，为什么发送完以后窗体不能点击，不能移动，点击状态栏下面的框还是能最小化，能还原，我把原代码贴出来，极品高手请指点！
procedure encodeemail(i:integer);//生成邮件
begin
form1.idmess.CharSet:='ISO-8859-1';
if form1.ComboBoxEncoding.ItemIndex = 0 then
  form1.idmess.TextEncoding := te8Bit
 else
  form1.idmess.TextEncoding := teBase64;
form1.idmess.UserName := form2.Suser.text;
form1.idmess.From := form1.UserEmail.text;
form1.idmess.SendTo := form1.Somelist.Items.Strings[sendcount];
form1.idmess.Subject := form1.Subject.text;
if form2.rdhtml.Checked then  
begin
form1.idmess.HTML.Assign(form1.Memo1.Lines);
form1.idmess.Text.Clear;
end
else
begin
form1.idmess.Text.Assign( form1.Memo1.Lines);
form1.idmess.html.Clear;
end;
end;procedure TForm1.btnSendClick(Sender: TObject);
begin
   scount:=somelist.Count;           
   sendcount:=0;
   self.Enabled:=false;
   btncancel.Enabled:=true;
   encodeemail(sendcount);
   inc(sendcount);
   screen.cursor := crHourGlass;
   StatusBar1.SimpleText := '正在连接到发件服务器，请稍候……';
   SakSMTP1.host := form2.Shost.text;
   SakSMTP1.UserID:=form2.Suser.text;
   SakSMTP1.UserPassWd:=form2.Spass.Text;
   SakSMTP1.connect;
   saksmtp1.Login;
   if not SakSMTP1.SMTPError then
   begin
      BtnCancel.Enabled := true;
      SakSMTP1.SendTheMessage( idmess);
      SakSMTP1.Disconnect;
      StatusBar1.SimpleText:= SakSMTP1.ReplyString;
   end;
   idmess.Free;
   idmess := TSakMsg.Create( self);
   screen.cursor := crDefault;
end;