Сортировка в Базе Данных через OnFilterRecord (Delphi 7)

Код:
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var FieldVal:string;
begin
FieldVal := DataSet['Наименование'];
Accept := copy(FieldVal, 1, length(edit1.text)) = edit1.Text;
end;

Ошибка: Edit1 - undeclared identifier