怪事，关于ADOQuery

Question

  更正：
  [目的：过滤记录]
procedure TForm1.ADOQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
Var
  Field:string;
begin
  Field:=Query1['PY'];
  Accept:=（Field[1]='L'）and （Field[2]='Z'）;
end;出现：“Invalid variant type conversion”错误
可在Query中不会，为何？ 

Answer 1

begin
  Field:=Query1.fieldbyname('PY').asstring;
  if copy(field,1,2) = 'LZ' then
    Accept:=true;
end;