Programa de Envio de email erro:Already connected

procedure TForm1.EnviaEmail;
var
i:Integer;
begin

if not NMPOP31.Connected then
begin
ShowMessage(´Falta conectar ao servidor!´);
PageControl1.ActivePage := tabSheet2;
exit;
end;

{ Seu servidor SMTP }
NMSMTP1.Host := Edit4.Text;

{ Porta SMTP, **NÃO MUDE ISTO** }
NMSMTP1.Port := 25;

{ Nome de login do usuário }
NMSMTP1.UserID := Edit5.Text;

{ Conecta ao servidor }

///Aqui que esta dando erro
NMSMTP1.Connect;

{ Se ocorrer algum erro durante a conexão com o servidor, avise! }
if not NMSMTP1.Connected then
raise Exception.Create(´Erro de conexão SMTP´);

with NMSMTP1.PostMessage do begin
{ Seu e-mail }
// FromAddress := ´joilson_gouveia@brturbo.com´;
FromAddress := ´evandro_araujo@yahoo.com.br´;

{ Seu nome }
FromName := ´Joilson Vieira Gouveia´;

{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(Edit1.Text);

{ Assunto da mensagem }
Subject := Edit2.Text;

{ Corpo da mensagem }
Body.Clear;
Body.Text := Memo1.Text;

{ Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }
Attachments.Clear;
{ Endereço do anexo }
if ListBox1.Items.Count > 0 then
for i := 0 to ListBox1.Items.Count-1 do
Attachments.Add(ListBox1.Items.Strings[i]);

end;

{ Manda o e-mail }
NMSMTP1.SendMail;
{ Disconecta do servidor }
NMSMTP1.Disconnect;
ShowMessage(´E-Mail enviado com sucesso!´);
end;

Obs. Estou utilizando:
Pop:pop.mail.yahoo.com.br
Smtp:smtp.mail.yahoo.com.br(Edit4.Text)

Esta dando o seguinte erro:Already connected

Evandro