[lmikle]

ага, а самому сравнивать по частям слабо?

Код:

procedure TForm1.QFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  // Начинается с...  
  Accept:= Pos(Edit1.Text,DataSet.FieldByName('SPEC').AsString) = 1;
end;