Delphi AdoQuery动态添加Field

为ADOQuery1动态添加Field

var  sField:TStringField;   

sField:=TStringField.Create(Self);

    sField.FieldName:=sPart;

    sField.Name:='ADOQuery1'+sPart;

    sField.DataSet:=ADOQuery1;