procedure TMailsend.Button2Click(Sender: TObject);
var
Msg: TIdMessage;


begin Msg.Subject:=Edit1.Text; //текст темы сообщения
Msg.Recipients.EMailAddresses:='*****'; //указываем адрес получателя
Msg.From.Address:=Edit2.Text; //указываем автора письма Msg.Body.Text:='текст сообщения'; //размещаем текст сообщения
Msg.Date:=StrToDate('01.12.2004'); //дата отправки письма может быть любой
Msg.Body.Text:=Memo1.Text;
IdSMTP1.Host:='smtp.bk.ru';
IdSMTP1.Username:='******';
IdSMTP1.Password:='****';
idSMTP1.Connect;
IdSMTP1.Send(Msg);
MessageDlg('Письмо отправленно', mtInformation, [mbOk], 0);
IdSMTP1.Disconnect;
end;