Não estou sabendo utilizar o QR.

Estou criando um Relatorio que lista os aniversariantes do mes, mas quando clico no botão do previw nada acontece o codigo e :


[color=blue:6889f3dc70]procedure TQRAnivMes.QuickRepPreview(Sender: TObject);
var
mes1 : Tdate;
vg_mes : String ;
begin
mes1 := date;
vg_mes := Copy(DateToStr(mes1),4,2);
Query1.Close;
Query1.SQL.Text := ´select nadm nome from inckamia where extract(month from datan)= :mes´;
Query1.ParamByName(´mes´).AsInteger := StrToInt(vg_mes) ;
// Query1.Params := mes ;
Query1.Open;

end;[/color:6889f3dc70]

Agradeço com antecedencia