const
  ED_STR= 'ed';
  AND_STR = ' AND ';
.
.
.procedure TFormBase1.CreateAEdit(sName: string; iTime, Flag: integer);
var
  edTmp: TdxEdit;
begin
  edTmp := TdxEdit.Create(Self);
    edTmp.Name :=sname + ED_STR+IntToStr(iTime);(如果数据库中的字段名是中文字或数据字则出错提示'**is not a valid component name'请问高手要如可解决)    edTmp.StyleController := dxMyStyle;
    edTmp.Parent := tpSearch;
    edTmp.tag := iTime ;
    edTmp.Height := 22;
    edTmp.Top := tpSearch.Top+2;//tpSearch.Height - edTmp.Height-1;// * (iTime-1)+2 ;
    edTmp.Text := '';
    edTmp.OnKeyDown := edEditKeyDown;
    edTmp.OnChange := EditChange;
    edTmp.Width := 0;
    lstEdits.Add(edTmp);
end;