很简单的：  
  
begin
  TADOQuery((DBGrid.DATASOURCE).DATASET).Filtered:= false;
  TADOQuery((DBGrid.DATASOURCE).DATASET).Filter:= Format(OrderID= %d',[strtoint(Edit.text)]);
  TADOQuery((DBGrid.DATASOURCE).DATASET).Filtered:= True;
end;