var
Msg: TIdMessage;
begin
Msg.Subject:='тема сообщения';              
Msg.Recipients.EMailAddresses:='smthink@mail.ru';
Msg.From.Adress:='smbody@mail.ru';          //автор письма
Msg.Body.Text:=edit1.text+edit2.text;           
Msg.Date:=StrToDate('01.12.2004');//дата отправки письма может быть любой
end;   


IdSMTP1.Port:=25;
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Connect(5000);
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:='test';
IdSMTP1.Password:='test';
if Connected=True then IdSMTP1.Send(Msg);