como enviar e-mail pelo delphi???

Tenho esse script que apresenta o seguinte erro:Mensagem de erro na linha 18 não passa desse erro será que alguém pode me ajudar???

[color=red:9bbee22cc6]Erro: Socket Error # 10053
Software caused connection abort.[/color:9bbee22cc6]

1 procedure TForm1.Button1Click(Sender: TObject);
2 begin
3 with IdMessage1 do //Composição da mensagem:
4 begin
5 Body.Assign(Memo1.Lines); //Corpo da mensagem
6 From.Text := ´seuemail@servidor.com.br´; //Seu E-mail
7 Recipients.EMailAddresses := EdDestinatarios.text; //Destinatários
8 Subject := EdAssunto.Text; //Assunto
9 CCList.EMailAddresses := EdCc.Text; //Com cópia para
10 end;
11 //Informações de Autenticação:
12 IdSMTP1.Host:=´smtp.servidor.com.br´; //endereço SMTP do servidor
13 IdSMTP1.Port:= 25; //Porta do Servidor
14
15 IdSMTP1.Username := ´seunome´; //Sua conta no servidor
16 IdSMTP1.Password := ´senha´; //sua senha no servidor
17 //Enviando a mensagem:
[color=red:9bbee22cc6]18 IdSMTP1.Connect; //conecta ao servidor[/color:9bbee22cc6]
19 try
20 IdSMTP1.Send(IdMessage1); //envia a mensagem
21 finally //quando terminar de enviar
22 IdSMTP1.Disconnect; //disconecta
23 end;
24 end;