Utilizo el siguiente código para evaluar el msg. contenido (cuerpo / líneas) de un mensaje de correo electrónico recibido con los componentes INDY 10

function LinesFromMsg(aMsg: TIdMessage): TStrings; 
var
  i: Integer; 
begin
  for i := 0 to aMsg.MessageParts.AttachmentCount-1 do
  begin
    if (amsg.MessageParts.Items[i].ContentType ='HTML') then
    begin
      if (amsg.MessageParts.Items[i] is Tidtext) then
        Result := TidText(amsg.MessageParts.Items[i]).body;
    end;
  end; 
end;

Respecto a este código tengo 2 preguntas:

a) ¿Es esta la manera correcta de encontrar la parte de Tlines en un mensaje de correo de arbitray? (considere los consejos mostrados enINDY 10 PARTES DE MSG POR CORREO ELECTRÓNICO )

b) ¿Dónde puedo encontrar un tutorial de todos los diferentes valores de cadena de tipo de contenido?