¿Cómo vaciar los datos adjuntos del envio de un correo?

[D@byt]

Hola utilizo Delphi7 el componente TIdMessage y al mandar el primer correo todo bien porque utilizo la orden

TIdAttachment.Create(MessageParts,'fichero a enviar');

Luego al mandar correos sucesivos me los va agregando todos y solo quiero mandar el último fichero añanadido.
¿La cuestión es cómo puedo vaciar la lista de ficheros adjuntos al correo para poder mandar solo el fichero nuevo?
Gracias