Отправка HTML

[VladimirAleks]

Как сделать чтобы отправляемое письмо было формата HTML?

SysLocale.PriLangID := LANG_RUSSIAN;
    SMTP.Host := EditSMTPserver.Text; 
    SMTP.Port := 25; 
    SMTP.AuthenticationType := atLogin; 
    SMTP.Username := EditLogin.Text; 
    SMTP.Password := MaskEditPassword.Text; 

    IdMessage.Recipients.EMailAddresses :=  EditFrom.Text;
    IdMessage.From.Text := EncodeHeader(EdiFrom.Text, [], 'Q', bit7, 'windows-1251');
    IdMessage.Subject := EncodeHeader('Тема', [], 'Q', bit7, 'windows-1251');

  attach := TIdAttachment.Create(IdMessage.MessageParts,'D:\1\1.html');
  attach.ContentType := 'text/html';
  attach := TIdAttachment.Create(IdMessage.MessageParts,'D:\1\Title.jpg');
  attach.ContentType := 'image/jpeg';

  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;