String grid filter

procedure MyFilter(AFilter: String);
begin
   grid.Filter.Clear;
  with grid.Filter.Add do
  begin
    Condition:=AFilter;
    Column:=1;
  end;

  grid.FilterActive:=active;
end;