Erro ao anexar Arquivo no Progr. Delphi

Estou tentando anexar o arquivo em um programa que desenvolvi em delphi e esta ocorrendo o seguinte erro:


Soket - Connection reset by peer


Minhas procedures:

procedure TForm1.btnAnexarClick(Sender: TObject);
begin
//Insere o nome do arquivo no memo mmAnexos
if odAnexos.Execute Then
mmAnexos.Lines.Add(odAnexos.FileName);

end;


procedure TForm1.btnEnviarClick(Sender: TObject);
Var
xAnexo : Integer;
begin
IdMessage1.Recipients.EMailAddresses := edtPara.Text;
IdMessage1.CCList.EMailAddresses := edtCC.Text;
IdMessage1.BccList.EMailAddresses := edtCCO.Text;

//Trata a Prioridade da mensagem
Case cbxPrioridade.ItemIndex Of
0 : IdMessage1.Priority := mpHigh;
1 : IdMessage1.Priority := mpNormal;
2 : IdMessage1.Priority := mpLow;
End;

IdMessage1.Subject := edtAssunto.Text;
IdMessage1.Sender.Text := mmMensagem.Lines.Text;

if cbxConfirmaLeitura.Checked Then
idmessage1.ReceiptRecipient.Text := IDMessage1.From.Text; // Auto Resposta

//Tratando os arquivos anexos
For xAnexo := 0 to mmAnexos.Lines.Count-1 do
TIdAttachment.create(idmessage1.MessageParts, TFileName(mmAnexos.Lines.Strings[xAnexo]));


IdSMTP1.Connect;

Try
IdSMTP1.Send(IdMessage1);
showmessage(´Teste´);

Finally
IdSMTP1.Disconnect;
End;
end;







Evandro Araujo de Abreu