procedure TFormNewItemPrice.btnFilterClick(Sender: TObject);
begin
  if trim(Criteria.Text) = '' then
  begin
    MessageDlg('In Order to Filter the Table. You MUST have entered in some ' 
+
      #13 + #10 + 'Filter Criteria ie NS* or NS', mtWarning, [mbOK], 0);
    abort;
  end;
  if UseFilter = False then
  begin
    ADDM.tmpItemPrice.IndexName := '';
    lblTextFilter.Caption := 'Filter On';
    Application.ProcessMessages;
    case rgCriteria.ItemIndex of
      0:
        begin
          ADDM.tmpItemPrice.Filter := 'TEXTSEARCH("' + Criteria.Text +
            '" IN Description)';
          ADDM.tmpItemPrice.Filtered := True;
          lblTextFilter.Caption := 'Filter On';
          Application.ProcessMessages;
          UseFilter := True;
        end;
      1:
        begin
          ADDM.tmpItemPrice.Filter := 'TEXTSEARCH("' + Criteria.Text +
            '" IN DesignDesc)';
          ADDM.tmpItemPrice.Filtered := True;
          UseFilter := True;
        end;
      2:
        begin
          ADDM.tmpItemPrice.Filter := 'TEXTSEARCH("' + Criteria.Text +
            '" IN Description) OR ' +
            'TEXTSEARCH("' + Criteria.Text + '" IN DesignDesc)';
          ADDM.tmpItemPrice.Filtered := True;
          UseFilter := True;
        end;

      3:
        begin
          ADDM.tmpItemPrice.Filter := 'TEXTSEARCH("' + Criteria.Text +
            '" IN ItemMatr) ';
          ADDM.tmpItemPrice.Filtered := True;
          UseFilter := True;
        end;
    end;
  end
  else
  begin
    lblTextFilter.Caption := 'Filter Off';
    Application.ProcessMessages;
    ADDM.tmpItemPrice.Filtered := False;
    UseFilter := False;
  end;

end;