1:
2:
3:
4:
5:
6:
7:
8:
9:

type
  TJTabelle = class(TCustomPanel)
  private
    FFilter: TStringList;
    ...
    procedure SetFilter(Value: TStringList);
    ...
    property Filter: TStringList read FFilter write SetFilter;
    ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TJTabelle.SetFilter(Value: TStringList);
var
  f : Integer;
  Spalte, Wert : String;
begin
  // Variable initialisieren
  DBZ:= Chr(134);
  FFilter:= Value;
  // Daten filtern
  For f:= 0 to FFilter.Count - 1 do
  begin
    ...
  end;
end;					

1:

  tabBedingung.Filter.Add('Bedingungstyp: ' Bedingungsart);