Отправка письма из Delphi

[Димка.]

люди, прошу о помощи,так как уже весь инет перерил,как только не извращался над етим кодом,не получается у меня(( помогите кто-нибудь,
хочу что б при нажатии батон1 текст из едит1 отправлялся на емейл,
буду благодарен за помощь,если не сложно обьясните как сделать или киньте исходник (
вот,что-то типу такого кода
Код:

begin
SMTP.Host:=Smtp.mail.ru;
SMTP.Port:=2525;
SMTP.UserName:=Login@mail.ru;
SMTP.AuthenticationType:=atAuthLogin;
SMTP.Password:=password;
SMTP.Subject:=Tema;
SMTP.SendTo:=Komy@mail.ru;
SMTP.CopyTo.Assign( );
SMTP.MessageBody:='X3';
{SMTP.FilesToSend.Assign(Files.Items);}
SMTP.SendMail;
end;

помогите зделать плиз,я уже и по-разному пробовал,и менял все что только можно,и ошибки искал как исправить,исправлял одни,появлялись другие(
ХЕЛП =(

[SERG1980]

вот пример

[Димка.]

Спасибо огромное)сейчас посмотрю что и как)

[Димка.]

еще один вопрос: у меня делфи 6,
когда запускаю пример,все норм,когда откриваю проект, у меня в строке

IdSMTP1.Username:=edit1.Text; //

видает ошибку [Error] Unit1.pas(61): Undeclared identifier: 'Username'
с чем ето связано?и как исправить?у меня в IdSMTP в свойствах вроде нет Username,есть UserId
что делать?

[Димка.]

все решил,заменил Username на UserId в коде и все пошло))
спасибо огромное)

[дима 111231]

Люди помогите мне С Отправкой письма из Delphi не чего не работает
Напишите исходник прошу пожалуйста ) жду ответа