Envio de email

[luisneria]

Distinguido equipo club delphi, una vez mas nesecito de su ayuda, estoy intentando realizar una pequeña aplicación que envie correos desde delphi, y tengo una rutina utilizando SMTP, pero al momento de la conexión me figura un mensaje como este:

PROYECT EMAIL.EXE RAISED EXCEPTION CLASS EIDSOCKETERROR WITH MESSEGE 'SOCKET ERROR #11044', PROCESS STOPEED. USE STEP OR RUN TO CONTINUE

LA RUTINA EMPLEADA ES ESTA :

Código Delphi [-]
procedure TForm1.btenviarClick(Sender: TObject);
var Anexo : Integer;
begin
  IdMessage.Recipients.EMailAddresses := edtPara.Text;
  IdMessage.Subject := edtAssunto.Text;
  IdMessage.Body := mmMensagem.Lines;
  //Manipulando os Anexos
  for Anexo := 0 to lbxAnexos.Items.Count-1 do
   TIdAttachment.Create(idmessage.MessageParts, TFileName(lbxAnexos.Items.Strings[Anexo]));
  IdSMTP.Connect;
  try
    IdSMTP.Send(IdMessage);
  finally
    IdSMTP.Disconnect;
  end;
  Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION +   MB_OK);
end;
end.

Ajala alguien me puede hechar una mano.

gracias.

////Coloque las etiquetas Delphi