Ajuda Com report

[henriquewow]

Boa tarde pessoal sou um programa novato, e migrei para o delphi.

fiz uma fiz um select que manda o resultado para uma dbgrid onde já foi filtrada, eu não estou conseguindo imprimir o relatório que esta na grid alguém pode me da uma ajuda. uso fast report e Delphi 10 Seattle.

 

segue o codigo de filtro.

begin
  if txt_buscarRelatorioID.Text = '' then
  begin
  with DM.SQL_Produtos do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from produtos');
      case RG_entregue.ItemIndex of
       0 : SQL.Add('where pro_entregue = "SIM" ');
       1 : SQL.Add('where pro_entregue = "não" ');
       2 : SQL.Add('');
      end;
      Open;

      if RecordCount = 0 then
      ShowMessage('Cliente não Cadastrado!');
    end;
  end
  else
  begin
    with DM.SQL_Produtos do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from produtos');
      case RG_pes.ItemIndex of
      0 : SQL.Add('where pro_comprador = :idcli');
      1 : SQL.Add('where pro_vendedor = :idcli');
      end;
      case RG_entregue.ItemIndex of
       0 : SQL.Add('and pro_entregue = "SIM" ');
       1 : SQL.Add('and pro_entregue = "não" ');
       2 : SQL.Add('');
      end;
      ParamByName('idcli').Value := txt_buscarRelatorioID.Text;

      anjo:=StrToInt(txt_buscarRelatorioID.Text);
      Open;
      SQLDataSet1:= dm.SQL_Produtos;

      if RecordCount = 0 then
      ShowMessage('Cliente não Cadastrado!');

    end;

  end;

end;

 

[robinhocne]

Está dando algum erro ?

Está chamando o relatório como ?