[ViktorXP]

гдето так

Код:

var
  I: Integer;
begin
  for I := 0 to IdMessage1.MessageParts.Count - 1 do
  begin
    if IdMessage1.MessageParts[i].ContentType = 'text/html' then
    begin
      ShowMessage(TIdText(IdMessage1.MessageParts[i]).Body.Text);
    end;
  end;