O que há de errado neste codigo para envio de e-mail.

ele nunca consegue conectar e da mensagens como hostlockup ou socket not conected etc algo parecido....

vamos ao codigo:

procedure TForm1.Button1Click(Sender: TObject);
begin
{ Host do servidor de e-mail }
NMSMTP1.Host := ´smtp.ig.com.br´;

NMSMTP1.Port := 25;

{ Nome de login do usuário }
NMSMTP1.UserID := ´xcap@ig.com.br´;

NMSMTP1.Connect;

if not NMSMTP1.Connected then
showmessage(´nao´);

with NMSMTP1.PostMessage do begin
{ E-mail do remetente }
FromAddress := ´xcap@ig.com.br´;

{ Nome do remetente }
FromName := ´Carlos Adriano Portes´;

{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(´haguen@globo.com´);

Subject := ´Teste do programa de envio de e-mail!!!´;

{ Corpo da mensagem }
Body.Clear;
Body.Add(´Primeira linha da mensagem´);
Body.Add(´Segunda linha da mensagem´);
Body.Add(´´); { Linha em branco }
Body.Add(´Última linha da mensagem´);
{ Anexar arquivos }
// Attachments.Clear;
// Attachments.Add(´c:\diretorio\arquivo.ext´);
end;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
showmessage(´E-mail enviado com sucesso!!!´);
end; :(