procedure SendMail;
begin
  IdMessage1.ClearBody;
  IdMessage1.Subject :=  _name + ' ' + _PRICE + 'руб, ' + _YEAR + 'г. ';

  with TIdText.Create(IdMessage1.MessageParts) do
  begin
    CharSet := 'UTF-8';
    Body.Clear;
    Body.Add('Архив: ' +  IfThen(fIS_ARC, 'ДА', 'нет'));
    Body.Add('Цена: ' +   fPRICE);
    Body.Add('Ср.цена: '+ fprice_avg);
    Body.Add('Объем: ' +  fcapacity);
    Body.Add('Год выпуска: ' + _YEAR);
    Body.Add('Ссылка: ' + fURL);

    ContentType := 'text/plain';
  end;// with

    try
      if not fSMTP.Connected then
        fSMTP.Connect;
    except
      on e: exception do
        ///
    end;//try

    if fSMTP.Connected then
    try
      Sleep(StrToIntDef(fSendInterval, 15) * 1000);

      fSMTP.Send(IdMessage1);

      fSMTP.Disconnect(true);
    except
      on e: exception do
        ///
    end;//try

end;