Fehler 10054 beim E-Mail Versand. Fehler in code?

[Karstadt]

hallo. Kann jemand bitte mein Code analysieren und mir helfen. Jedes mal bekomme ich eine FMeldung.

Fehler: Socket-Fehler # 10054
Die Verbindung wurde von Peer zurückgesetzt.

Delphi-Quellcode:

  idPOP31.Host := gesetzt
  idPOP31.Username := gesetzt
  idPOP31.Password := gesetzt

  idPOP31.Connect;
  idpop31.disconnect;

  UserEmail := gesetzt

  IdMessage1.Clear;
  with IdMessage1 do
  begin
    Body.text := gesetzt

    From.Text := UserEmail;         //Absender
    ReplyTo.EMailAddresses := UserEmail;
    Recipients.EMailAddresses := gesetzt

    Subject :=gesetzt


    ReceiptRecipient.Text := gesetzt
  end;


  IdSMTP1.Username := SmtpServerUser;//Welcher Benutzer?
  IdSMTP1.Password := SmtpServerPassword;//Welches Passwort??

  //Generelles Setup
  IdSMTP1.Host := SmtpServerName;//Welchen Host soll ich benutzen?
  IdSMTP1.Port := SmtpServerPort;//Welchen Port soll ich benutzen?


  TIdAttachment.Create(IdMessage1.MessageParts, ZipDatei);

  //Hier wird die Verbindung aufgebaut!
  IdSMTP1.Connect;//Stelle Verbindung her
  

  try
    Try
      IdSMTP1.Send(IdMessage1);//Versuche die Nachrich zu senden

    finally
      IdSMTP1.Disconnect;
  end;
  except
    on e:exception do
    begin
      beep;
      LogMem('Die E-Mail wurde nicht versendet! Fehler: '+e.Message);
      exit;
    end;
  end;

warum...?