procedure SendEmail(sTo, sFile: String);
var
  M: TIdMessage;
begin
  M := TIdMessage.Create(Form1);
  M.Body.Add('This file- :lovi:))))');
  M.From.Text := '"ci27" <ci27@mail.ru>'; //отправитель
  M.Recipients.Add;                     // ci27@mail.ru
  M.Recipients.Items[0].Text := '"Post" <'+sTo+'>'; //Получатель
  M.MessageParts.Add;
  TIdAttachmentFile.Create(m.MessageParts,sFile);
  M.Subject := ':-)'; //Тема письма

  Form1.IdSMTP1.AuthType := atSASL;
  Form1.IdSMTP1.Host := 'smtp.mail.ru';
  Form1.IdSMTP1.Port := 2525; // mail.ru 2525 порт использует
  Form1.IdSMTP1.Username := 'ci27@mail.ru';
  Form1.IdSMTP1.Password := '******';
  Form1.IdSMTP1.Connect();
  if Form1.IdSMTP1.Connected then
  begin
    Form1.IdSMTP1.Send(M);
  end;
  Form1.IdSMTP1.Disconnect;
end;