Out of Memory ao imprimir Relatorio FastReport

 qryRelProd.Close;
  qryRelProd.SQL.Text := vSqlConsulta;
  qryRelProd.SQL.Text := StringReplace(qryRelProd.SQL.Text, ''/*ordem*/'',
    filtro + filtro1 + filtro2 + ordem, []);
  qryRelProd.Params[0].Value := 0;
  qryRelProd.Params[1].Value := 1000;
  if CxbEstoque.Checked then
  begin
    qryRelProd.Filtered := False;
    qryRelProd.Filter   := ''QTD_ATUAL > 0'';
    qryRelProd.Filtered := True;
  end else
    qryRelProd.Filtered := False;
  qryRelProd.Open;

  if qryRelProd.IsEmpty then
  begin
    ShowMessage(''Informações não encontradas!'');
    exit;
  end;

  try
    cximprimir.Enabled := false;
    frxReport.LoadFromFile(ExtractFilePath(Application.ExeName) +
      ''\Relatorio\RelEstoque2.fr3'');
    frxReport.ShowReport;
  finally
    cximprimir.Enabled := true;
    edtLoc.SetFocus;
  end;