Código Delphi [-]
procedure TForm1.TMSFMXToolBarButton42Click(Sender: TObject);
var
filename: TStream;
//filename: String;
s1: tStream;
  begin
     s1 := TMemoryStream.Create;
     frxReport1.PrepareReport();
     frxReport1.Export(frxPDFExport1);
     frxReport1.SaveToStream(s1);
    begin
    UniQueryEmail.Close;
    UniQueryEmail.SQL.Clear;
    UniQueryEmail.SQL.Add('Select * from Email');
    UniQueryEmail.SQL.Add('where instrut = :instrut');
    UniQueryEmail.ParamByName('instrut').AsString := LabelRutInst.Text;
    UniQueryEmail.Open;
    if not uniqueryemail.Eof  then
       begin
         filename := s1;
         try
         IdSMTP.Host := UniQueryEmailSMTP_HOST.AsString;
         IdSMTP.Password  := UniQueryEmailSMTP_PASSWORD.AsString;
         IdSMTP.Port := StrToInt(UniQueryEmailSMTP_PORT.AsString);
         IdSMTP.Username := UniQueryEmailSMTP_USERNAME.AsString;
         data.Subject := 'PRUEBA DE ENVIO';//edit3.Text; ???????????????
         data.Recipients.EMailAddresses := LabelPacEmail.Text;
         data.Body := memo1.Lines;
         data.AttachmentTempDirectory := filename;
         TIdAttachmentfile.create(data.MessageParts,filename); //es aquí donde tengo el problema asumo que sea por incompatibilidad de archivo o seguramente no lo estoy haciendo de la forma correcta
           try
           IdSMTP.Connect;
           IdSMTP.Send(Data);
           finally
            IdSMTP.Disconnect(true);
            ShowMessage('Correo enviado con exito');
           end;

         Except

          on E: exception do
             ShowMessage(E.Message)

         end;


       end
       else
       begin
         ShowMessage('No se puede enviar el EMAIL');
       end;
    
    end;
  end;

Código Delphi [-]
procedure TForm1.TMSFMXToolBarButton42Click(Sender: TObject);
var
filename: TStream;
//filename: String;
s1: tStream;
  begin
...
  end;

Código Delphi [-]
uses
  IdAttachmentFile, IdText, IdAttachment, IdMessageParts; 


function TForm2.prepareMessage(AToMail, ASubject: string; ABody: TStrings; AFileStream: TStream; AFileName: string): Boolean;
var
  CCListMail: string;
  HTMLFormat: Boolean;
begin
  Result := False;
  HTMLFormat := true;
  CCListMail := '';

  with IdMessage do begin
    clear;
    Body.clear;

    Recipients.EMailAddresses := AToMail;

    From.Address := FromMail;
    From.Name := FromNombre;
    ReplyTo.Add.Address := FromMail;
    if (CCListMail <> '') then
      BccList.EMailAddresses := CCListMail;

    Subject := ASubject;

      //se insertan los ficheros adjuntos
    with TIdAttachmentFile.Create(MessageParts) do begin
      AFileStream.Seek(0, 0);
      LoadFromStream(AFileStream);
      FileName := ExtractFileName(AFileName);
    end;

    if HTMLFormat then begin
        //la parte del mensaje que contienes HTML
      ContentType := 'multipart/mixed';
      with TIdText.Create(MessageParts, nil) do begin
        ContentType := 'text/html';
        Body.AddStrings(ABody);
      end;

      Body.Add('This is a multi-part message in MIME format.');
    end
    else begin
      ContentType := 'text/plain';
      Body.AddStrings(ABody);
    end;
  end;

  result := True;
end;

function TForm2.SendMail: Boolean;
begin
  result := false;

  // se carga la configuracion del SMTP
  getSMTPConfig;

  IdSMTP.Connect;
  if IdSMTP.connected then
  try
    IdSMTP.Send(IdMessage);
    result := True;
  finally
    IdSMTP.Disconnect(true);
  end;
end;

procedure LoadBitmapIntoStream(stream: TStream; AFileName: string);
var
  Bitmap: TBitmap;
begin
  /// Aqui es donde se carga el contenido del fichero en en un memoryStream
  /// Para las pruebas yo las he realizado con un simple BMP
  Bitmap := TBitmap.create;
  try
    Bitmap.LoadFromFile(AFileName);
    Bitmap.SaveToStream(stream);
  finally
    Bitmap.Free;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  Email, asunto: string;
  FileStream: TStream;
  MailFileName: string;
begin
  FileStream := TMemoryStream.Create;
  try
    /// carga el contenido del fichero en en un memoryStream, puede ser una imagen o un fichero PDF o cualquier otro contenido
    LoadBitmapIntoStream(FileStream, 'c:\a\icon_title2.bmp');

    Email := Destinatario; // 'uncorreo@servidor.com';
    asunto := 'El asunto del correo. Esto es una prueba de correo';
    MailFileName := 'MyImagen.bmp'; 
    /// MailFileName es el nombre que aparecera  en el email del receptor. 
    /// No tiene por que ser el mismo nombre que tiene originalmente.

    if not prepareMessage(Email, asunto, memo1.Lines, FileStream, MailFileName) then
      showMessage('Error en el proceso de preparacion del email')
    else if not SendMail then
      showMessage('No se pudo enviar el EMAIL')
    else
      ShowMessage('Correo enviado con exito');
  finally
    FileStream.Free;
  end;
end;