Не рабочий поиск

{Изменение поиска }
procedure TfMain.Edit1Change(Sender: TObject);
begin
fDM.TKvartiry.Filter := ' Tip Doma >=' + QuotedStr(Edit1.Text); fDM.TKvartiry.Filtered := True;
if Edit1.Text <> ' ' then begin
fDM.TKvartiry.Filtered:=False; //отключаем фильтр
ed:= Edit1.Text; //передаем в DM новый текст
fDM.TKvartiry.Filtered := True; //включаем фильтр
end else fdm.TKvartiry.Filtered := False;
end;

procedure TfMain.BitBtn1Click(Sender: TObject);
 var
myLookup: Variant; //для получения результата
s : String; //для отчета
begin //получаем результат:
myLookup := fDM.TKvartiry.Lookup('Tip Doma', Edit1.Text,'Tip Doma'); //проверяем, не Null ли это:
 if VarType(myLookup) = varNull then
ShowMessage('Дом не нaйден !')
 else if VarType(myLookup) = varEmpty then ShowMessage('Запись не нaйденa!')
//если это массив, то из его элементов собираем //многострочную строку:
else if VarIsArray(myLookup) then begin
s := myLookup[0] + #13 + myLookup[1] + #13 + myLookup[2] + #13 + myLookup[3]; //и выводим ее на экран:
ShowMessage(s);
end;
 
end;

procedure TForm1.Button1Click(Sender: TObject);
 var
 MyLookup:Variant;
 s:string;
begin
// DataModule2.Locate(edit1.text);
datamodule2.TShcola.Filtered:=false;
datamodule2.ed:=edit1.text;
datamodule2.TShcola.Filtered:=true;
datamodule2.TShcola.Active:=True;
   MyLookup:=datamodule2.TShcola.Lookup('Класс',Edit1.Text, 'Оценка;Год;Четверть;Предмет;Преподаватель;Количество часов;Оценка;');
           if VarType (MyLookup)= VarNull then
         Showmessage ('Учашиеся стаким классом не найдено!')
     else  if VarType (MyLookup)= VarEmpty then
           Showmessage ('Запись не найдено!')
       else if VarIsArray (MyLookup)then begin
       s:=Mylookup[0] + #13 + Mylookup[1] + #13 +
           Mylookup[2] + #13 + Mylookup[3];
           Showmessage(s);
end;
       end;

 public
    { Public declarations }
   //procedure MyLocate (s:string);
ed:string;// текст из Edit1

procedure TDataModule2.TShcolaFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
 var
 s:string;
  begin
s:= Copy (Dataset['Класс'],1,Length(ed));Accept:=s=ed;
end;
 
end.

procedure TForm1.Edit1Change(Sender: TObject);
begin
DataModule2.TShcola.Filtered:=false;
DataModule2.ed:=edit1.text;
end;