Für StringGrid einen Filter realisieren

procedure TForm1.BtnSetFilterClick(Sender: TObject);
begin
  //Grid nach Zellinhalt der markierten Zelle filtern
  SetFilter(Grid.Col,Grid.Cells[Grid.Col,Grid.Row]);
end;

procedure TForm1.BtnRestoreFilterClick(Sender: TObject);
begin
  RestoreFilter;
end;