onde esta o error

caros amigos do mundo delphi

gostaria de saber onde esta error

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
//with NMSMTP1 do
NMSMTP1.Host :=´meuservidordeemail.com.br´;
NMSMTP1.UserID :=´meuusuario´;
NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress :=´email remetente´;
NMSMTP1.PostMessage.ToAddress.Text :=´email destino´;
NMSMTP1.PostMessage.Body.Text :=´Menssagem´;
NMSMTP1.PostMessage.Attachments.Text := OpenDialog1.FileName;
NMSMTP1.PostMessage.Subject :=´Assunto´;

NMSMTP1.sendmail;
ShowMessage(´Enviado´);
NMSMTP1.Disconnect;
end;
end;

obs. estou utilizando 1 NMSMTP, 1 Button, 1 OpenDialog.

1º pergunta
funciona tando conectado via modem quanto via rede.

2º pergunta
porque o error Connection failed(Conexão falhou).

3º pergunta
onde esta o error


desde ja muito obrigado