使用Table对数据进行过滤上的问题

Question

function TForm1.Match(str1,str2:string):Boolean;
var
   len,i:integer;function Min(len1,len2:integer):integer;
begin
   if len1<=len2
      then
         result:=len1  else
         result:=len2
end;begin
   len:=Min(length(str1),length(str2));
   result:=true;
   for i:=1 to len do
     begin
       if str1[i]<>str2[i]
          then
            begin
              result:=false;
              Exit;
            end;
     end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  StudentTable.Filtered:=false;
  StudentTable.Filtered:=true;
  frReport1.ShowReport;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
   close;
end;procedure TForm1.StudentTableFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
   var
      strtemp:string;
begin
   if Edit1.Text<>''then
   begin
      strtemp:=StudentTableSID.Asstring;
      Accept:=Match(Edit1.Text,strtemp);
   end;
end;
end;编译时提示无法找到Match函数