QReport - delphi 5

with crc0003b.qryprint2 do
     begin
      Active := False;
      sql.clear;
      sql.add(´Select LivroNumero, LivroPagina, LivroOutorgantes, LivroOutorgados, LivroData, LivroEspecie´);
      sql.add(´From dbliv Where´);
      sql.add(´LivroNumero like :Lv1´);
      sql.add(´Order By LivroOutorgantes´);
      ParamByName(´Lv1´).AsInteger := strtoint(Edit1.Text);
      try
       Active := True;
       crc0003b.CRC0003BRP.Preview;
      except
       ShowMessage(´Erro na Query´);
       Abort;
      end;