Как отправить на E-Mail текст используя компонент Indy!!!???

[$T@LKER]

Подскажите пожалуйста как отправить по нужному адресу опридильонный текст при помощи компонентов Indy???
Заранее спасибо!!!!

[Grag]

Достаточно компонентов IdSMTP и IdMessage

[$T@LKER]

Достаточно компонентов IdSMTP и IdMessage

Єто я в курсе!!! Вот у меня код но он не работает!!! Выдаёт ошибку!!!

procedure TForm1.Button3Click(Sender: TObject);
begin
begin
IdSMTP1.Port:=25;
IdSMTP1.Host := 'smtp.gmail.com';
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:='логин';
IdSMTP1.Password:='пароль';
IdMessage1.Subject:='asd'; {тема сообщения}
IdMessage1.Recipients.EMailAddresses:='емайл получателя';
IdMessage1.From.Address:='емайл отправителя';
IdMessage1.Body.Assign(Memo1.Lines);
try
try
IdSMTP1.Connect(5000);
IdSMTP1.Send(IdMessage1);
except on E:Exception do
Memo1.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
finally
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
end;
end;
end;

Подскажите где же ошибка!!!???

[Grag]

Мне кажется вот здесь
IdMessage1.Body.Assign(Memo1.Lines) ;

[$T@LKER]

Мне кажется вот здесь
IdMessage1.Body.Assign(Memo1.Lines) ;

Исправил на

IdMessage1.Body.Text := 'asd';

Но мне что до этого что после этого указывает на

IdSMTP1.Send(IdMessage1);

???

[Grag]

Возьми за основу, может поможет...

procedure TForm1.Button50Click(Sender: TObject);
begin
SMTP.Host:='smtp.bk.ru'; // адрес почтового сервера
SMTP.Port:=25; // порт по которому будет осуществляться подключение
//
SMTP.AuthenticationType:=atLogin; // тип подключения к серверу - с авторизацией
SMTP.Username:='bLabLabLa'; // логин пользователя
SMTP.Password:='bLabLabLa'; // пароль пользователя
//
IdMessage.Recipients.EMailAddresses := 'bLabLabLa@ua.fm '; // майл получателя письма
IdMessage.From.Text := 'bLabLabLa@bk.ru'; // майл отправителя письма
IdMessage.Subject := 'HeLo!!'; // тема письма
IdMessage.Body.Text := tekst; // передача данных из memo в компонент IdMessage, для последующей отправки
try
try
SMTP.Connect; // соединение с почтовым сервером
SMTP.Send(IdMessage);
ShowMessage('Письмо отправлено!');
except on E:Exception do
begin
MeMailStats.Lines.Insert(0,'Статус отправки: ERROR - '+E.Message);
ShowMessage('Письмо не отправлено!');
end;
end;
finally
SMTP.Disconnect; // разрыв соединения
end;
end;

[$T@LKER]

А примерчик про отправку файла можете дать???