Table1.Open;
  Table2.Close
  Table2.Filtered:=False;
  Table2.Filter:='key = ''' Table1.FieldByName('key').AsString ''' and ....SQL指令';
  Table2.Open;
  Table2.Filtered:=True;