procedure TForm1.Button1Click(Sender: TObject);
var
  MP: TIdMessagePart;
begin
  IdMessage.Clear;

  // Plain Text
  with TIdText.Create(IdMessage.MessageParts, nil) do
  begin
    ContentType := 'text/plain';
    Body.Text := 'Das sieht der Text-Viewer Betrachter';
  end;

  // HTML Part
  with TIdText.Create(IdMessage.MessageParts, nil) do
  begin
    ContentType := 'text/html';
    Body.Text := 'Das sieht der [i]HTML-Viewer[/i] Betrachter';
  end;

  IdMessage.ContentType := 'text/html';
  IdMessage.From.Address := 'test@test.de';
  IdMessage.From.Name := 'Tester';
  IdMessage.Subject := 'Hallo User';
  IdMessage.Recipients.Add.Address := 'empfaenger@server.tld';

  ShowMessage(IntToStr(IdMessage.MessageParts.Count));

  IdSMTP.Connect;
  try
    IdSMTP.Send(IdMessage);
  finally
    IdSMTP.Disconnect;
  end;
end;