Table1.Filter := 'AA_AAA = ''' + Edit1.Text + '''';
                    ~~~~~~         ~~~~~~~~~~
                    필드명        필터할 문자열
  예)---------------
     procedure TForm1.Button1Click(Sender: TObject);
     begin
         Table1.Active := False;
         Table1.Filter := 'AA_AAA = ''' + Edit1.Text + '''';
         Table1.Filtered := true;
         Table1.Active := True;
     end;
  ------------------

                        [from  "sysv" : SYStem Virus]...
                                        ~~~    ~