QReport X ADOQuery

procedure TfrmPesquisa.btnOKClick(Sender: TObject);
var
   SQL: string;
begin

//mkeData é um maskedit
if Trim(mkeData.Text) = ´/  /´ then
     begin
          msg_erro(´Digite a data a ser impresso o relatório!´);
          exit;
     end;

          //Devolvidos é o nome da tabela
          SQL := ´SELECT * FROM Devolvidos WHERE Data = ´ + mkeData.Text;
          if frmRel1 = nil then
          begin
               frmRel1 := TfrmRel1.Create(Application);
          end;
          //abrindo a conexão
          frmPrinc.ADOC_APRD.Open;

          //ADOQDevolucao é um ADOQuery
          frmRel1.ADOQDevolucao.SQL.Clear;
          frmRel1.ADOQDevolucao.SQL.Add(SQL);
          frmRel1.ADOQDevolucao.Open;
          frmRel1.ADOQDevolucao.Requery;
          frmRel1.QRdata.Caption := mkeData.Text;

          //qrpDevProp é o nome do QReport
          frmRel1.qrpDevProp.Preview;
          Close;
end;