Am einfachsten mit einem Filter. Wenn man auf einen Klickt wird das ausgeführt:
Delphi-Quellcode:
procedure TForm1.DBGrid1OnCellClick(Sender:TObject);
begin
ADOTable1.Filter := 'Kundenname='+ADOTable1.FieldbyName('Kundenname').AsString;
ADOTable1.Filtered := true;
end;