ciao,

credo che il problema è che non effettui la open della query.

prova cosi:
codice:
        DataModule1.Q_incrementapunti.Close;
      //  DataModule1.Q_incrementapunti.Params[0].AsString := Edit2.Text;
        DataModule1.Q_incrementapunti.ParamByName('Cercal').AsString := Edit2.Text;
        DataModule1.Q_incrementapunti.Open;
        if DataModule1.Q_incrementapunti.RecordCount > 0 then
                begin
                MessageDlg('Trovato.', mtwarning, [mbok], 0);
                end
        else
                begin
                MessageDlg('Non trovato.', mtwarning, [mbok], 0);
                end;
        end;
per una maggiore chiarezza di lettura io suggerirei di passare i parametri tramite parambyname.

ciao