Problem beim senden mit anhang - indy 9

[tobiroh]

Hallo liebe Leute,

Ich habe das Problem dass sich bei größeren Anhängen mein Delphiprogramm beim senden aufhängt.
Nach dem senden funktioniert es wieder.

Delphi-Quellcode:

if OpenDialog1.Execute then
   begin

    attach := TidAttachment.Create(msg.MessageParts, OpenDialog1.FileName);
    attach.DisplayName := msg.Subject;
    end;

smtp.AuthenticationType := atLogin;
smtp.Connect;
smtp.Authenticate;


try
 smtp.Send(msg);
finally
 showMessage('mail gesendet');
 smtp.Disconnect;

Ich benutze Indy 9

Ich bin sehr dankbar für schnelle gute Antworten