Отправка письма на e-mail

[Uniskull]

Скажите плиз как отправить письмо на майл.ру(мой майл). Дайте код. Дело в том, что примеров нашел, но не работают(у меня Delphi 2010)

[mihali4]

Какой пример не работает ?
Какую ошибку дает ?

[Uniskull]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdSMTP1: TIdSMTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses idMessage;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
    m     :TIdMessage;
begin

M := TIdMessage.Create(Form1);

M.Body.Add('1 строка');
M.Body.Add('2 ');
M.From.Text:='"VVS" <xxx202@mail.ru>'; 
M.Recipients.Add;//
M.Recipients.Items[0].Text:='"Тестинг"<xxx202@mail.ru>';
M.Subject := 'HEIL! >:)';
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Username:= 'login';
IdSMTP1.Password:='pass';
TIdAttachment.Create(M.MessageParts,'c:\file.zip');
IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
IdSMTP1.Send(M);
end;
IdSMTP1.Disconnect;
end;

end.

Ошибка