动态创建的查找字段出错，请帮忙，谢谢！

定义如下：
var
  LookF: TStringField;代码如下：
  qryZY.Close;
  qryZY.SQL.Add('SELECT YXZYID,YXSDM,ZYDM,ZSRS from zszy');
  LookF := TStringField.Create(Self);
  LookF.FieldName := 'myfield';
  LookF.Name := qryZY.Name + LookF.FieldName;
  LookF.Index := qryZY.FieldCount;
  LookF.DataSet := qryZY;
  LookF.FieldKind := fkLookup; //这里你可以写其它类型
  LookF.LookupDataSet := qryYX;
  LookF.LookupKeyFields := 'YXSDM';
  LookF.LookupResultField := 'YXSMC';
  LookF.KeyFields:='yxsdm';
  LookF.DisplayLabel:='查找字段';
  qryZY.FieldDefs.UpDate;
  qryZY.Open;运行时提示错误信息：
qryZY:Field "yxsdm" not Found.