Stringgrid mit filter

[5etH]

ich habe nun folgendes im internet gefunden ^^

Delphi-Quellcode:

procedure SetFilter(ACol:Integer;Exp:string);
var
  I,Counter:Integer;
begin
  FilterList:=TStringList.Create;
  with form1.stringGrid2 do
  begin
    //Filterliste mit Gridinhalt füllen
    for I := FixedRows to RowCount - 1 do
      FilterList.Add(Rows[I].Text);

    //Grid filtern
    Counter:=FixedRows;
    for I := FixedRows to RowCount - 1 do
    begin
      if Cells[ACol,I] <> Exp then
      begin
         Rows[I].Clear;
      end
      else
      begin
         if Counter <> I then
         begin
           Rows[Counter].Assign(Rows[I]);
           Rows[I].Clear;
         end;
         Inc(Counter);
      end;
    end;
    RowCount:=Counter;
  end;
end;

procedure RestoreFilter;
var
  I:Integer;
begin
  with form1.Stringgrid2 do
  begin
    RowCount:=FixedRows+FilterList.Count;
    for I:=0 to FilterList.Count - 1 do
        Rows[FixedRows+I].Text := FilterList.Strings[I];
  end;
  FilterList.Free;
end;

leider ist es so, dass er die änderungen die ich in der Filteransicht treffe nicht übernimmt, da er nur die alten einträge wieder in das Stringgrid schreibt.

ich weis aber leider jetzt nicht so recht wie ich das Problem am besten angehe, das er die änderungen übernimmt

gruß
5etH