Incrustar Imagen

[LiAnTe-]

Hola chicos,

me gustaria saber como, puedo hacerlo o que funcion seria para cuando estoy creando un correo desde mi aplicacion incrustarle una imagen en el cuerpo.

Código Delphi [-]
  IdSmtp1 := TIdSMTP.Create(Application);
  Correo := TIdMessage.Create(Application);
  try
    IdSmtp1.Host := SmtpServer;
    if BDades.TConfig_ExtVALIDARMAIL.Value <> 'N' Then
    Begin
      IdSmtp1.Username := Pop3ServerUser;
      IdSmtp1.Password := Pop3ServerPassword;
    end;
    IdSmtp1.Connect;

    Correo.From.Address := UserEmail;
    Correo.FromList.Add.Address := Pop3ServerUser;
    Correo.Recipients.EMailAddresses := vCRFTPCorreo;
    Correo.Subject := vCRMailAsunto;
//    correo.LoadFromFile(vCRFTPNombreFichero);
//    Correo.Body.LoadFromFile(vCRFTPNombreFichero);
    Correo.Body.Text := vCRMailTexto;
    TIdAttachmentFile.Create(correo.MessageParts, vCRFTPNombreFichero);
    IdSMTP1.Send(Correo);
    IdSMTP1.Disconnect;
    IdSMTP1.Destroy;
    Correo.Destroy;