Filter auch mit

[Computersklave]

Hallo, habe folgenden Code:

Delphi-Quellcode:

procedure TSuche_Empf.TableSucheFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
 if (TableSuche.FieldByName('Kategorie').AsString=Edit1.text)
  and (TableSuche.FieldByName('Firma').AsString=FlatEdit1.text)
  then Accept:=true
  else Accept:=false;
end;

Ich möchte nun, daß wenn ich in FlatEdit1.text z.B. "Sch" stehen habe alle
Datensätze im Feld FIRMA die mit "Sch" anfangen (z.B. Schuster, Schmidt, Schulze etc.)
mit angenzeigt werden.
Der Wert für KATEGORIE sollte allerdings exakt stimmen, wie es ja zur Zeit auch geht.

Hat jemand einen Tipp?