Mal wieder ein Indy Email-Problem

[beo]

Sorry, hier ein paar Details - alles Standard eigentlich

Delphi-Quellcode:

  SMTP := TIdSMTP.Create(nil);
  eMail := TidMessage.Create(nil);

  try
    with TIdText.Create(Email.MessageParts, nil) do
    begin
      body.Text := 'c:\test\test.html';
      ContentType := 'text/html';
      CharSet         := 'iso-8859-1';
      ContentTransfer := 'quoted-printable';
    end;

    att := TIdAttachmentFile.Create(Email.MessageParts, 'c:\test\img1.JPG');


    eMail.From.Text := FQuelle;
    eMail.Recipients.EMailAddresses := edtZiel.Text;
    eMail.Body.LoadFromFile('C:\test\test.html');
    eMail.Subject := edtBetreff.Text;
    email.ContentType := 'multipart/related; type="text/html"';
    eMail.CCList.EMailAddresses := edtCC.Text;

    SMTP.Host := FSmtp;
    SMTP.UserName := FUserName;
    SMTP.Password := FPassword;
    SMTP.Port := 25;
    SMTP.AuthType := atDefault;

    AntiFreeze.active := true;
    SMTP.Connect;
    SMTP.Send(eMail);
    SMTP.Disconnect;

  finally
    eMail.Free;
    SMTP.Free;
    AntiFreeze.active := false;
  end;

Wenn man die Anwendung einige (mindestens 10 Min) einfach mal laufen läßt, gibts irgend wann nen Socket Error # 10053 Software caused connection abort