Sendevorgang blockiert meine Software

[skyquaker]

Ich versende in meiner Software mit SMTP meherere Emails mit großen Anhängen. Während ich diese versende, bleibt meine Software jedoch unbenutzbar und wird als "Not Responding" angezeigt. Die Emails werden zwar verschickt, ich kann aber z.B. keinen Pause Knopf betätigen.

Delphi-Quellcode:

procedure TForm1.sndButtonClick(Sender: TObject);
var i : integer;
begin

probar.Visible := true;
probar.Max := globalcnt;


for  i := 1 to globalcnt -1 do
begin
 if FileExists('./temporary/'+ExtractFileName(opendiag.filename)+'_'+Inttostr(i)) then
    TIdAttachment.Create(email.MessageParts, './temporary/'+ExtractFileName(opendiag.filename)+'_'+Inttostr(i));
 EMail.Subject := 'Auto generated Message';
 smtp1.Connect;

   try
   smtp1.Send(Email);
   smtp1.Disconnect;
  except on E:Exception do
      Errorlog.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
   probar.StepIt;
   eMail.MessageParts.Clear;
end;

end;

Was muss ich machen um meine Software auch während des Sendevorgangs benutzbar zu machen?