report na dbgrid

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 = "NAO" ');
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 = "NAO" ');
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;