Problemas con TIdSMTP

[Angel.Matilla]

He estado mirando los enlaces que me has mandado, y otros que encontré en el foro como Enviar mails con imágenes, y entiendo la filosofía de lo que explican. Pero me ha surgido un problema: como sabéis uso BCB 6 y me está costando adaptar el código Delphi. Hay una línea especialmente que se pone de uñas, esta:

Código Delphi [-]
lTextPart := TIdText.Create(lMessage.MessageParts);

Si trato de adaptarla a Builder entiendo que debería ser algo así:

TIdText *Texto;
Texto = new TIdText(MenCor->MessageParts);

siendo MenCor un TidMessage, pero al compilar me da este error:

[C++ Error] Funciones.cpp(1310): E2285 Could not find a match for 'TIdText::TIdText(TIdMessageParts * const)'

En la ayuda del objeto me indica que la sintaxis sería:

Create(Collection: TIdMessageParts; ABody: TStrings);
Parameters
Collection: TIdMessageParts
Owner of the collection item.

ABody: TStrings = nil
Content of the message part.

He probado también esto:

TIdText *iTexto;
TIdMessageParts *iMensaje;
iMensaje = new TIdMessageParts(MenCor);
iTexto = new TIdText(iMensaje);

pero me da el mismo error. ¿Podéis echarme una mano aunque sea un peado?