TIdAttachment.Create(IdMessage.MessageParts, FileName);

  with IdMessage do
  begin
       From.Text := 'pia@dreamwiz.com';
     ReplyTo.EMailAddresses := 'pia@dreamwiz.com';
     Recipients.EMailAddresses := imsi_qy.FieldByname('ToAddress').AsString; { To: header }
     Subject := Modual.Aptname + ' ' + Modual.YM + '월 자료입니다.'; { Subject: header }
  end;

{authentication settings}
  smtp.AuthenticationType := atlogin;
  SMTP.Username := 'pia';
  SMTP.Password := 't0063';

  {General setup}
  SMTP.Host := 'smtp.dreamwiz.com';
  SMTP.Port := 25;

  {now we send the message}
  SMTP.Connect;
  try
     SMTP.Send(IdMessage);
  finally
     SMTP.Disconnect;
  end;

제가 프로그램에서 사용한 소스인데 일부를 수정해서 올려 놓았습니다 참조하시구요
저는 dreamwiz 유료메일에 가입해서 smtp서버를 이용하고 있네요....
그래서 smtp.host가 dreamwiz로 되어 있구요....
즐코하는데 도움이 되길...