请问怎样动态添加Query字段，DisplayLabel属性等

Question

请问怎样动态添加Query字段，DisplayLabel属性等
Query1.Fields.add('aaa')
Query1.Fields[0].DisplayLabel='中文'...

Answer 1

with FieldDefs.add do
begin
   Name := 'xxx';
   DataType:= dtString;
   Size := 10
end;

Answer 2

var
  Fs:TField;
begin
   fs := TField.Create(nil);
   fs.FieldName := 'Field1';
   fs.DisplayLabel := 'NEWField';
   fs.SetFieldType(ftString);
   Query1.Fields.Add(fs);
   ShowMessage(Query1.FindField('Field1').DisplayLabel);

Answer 3

var
  Fs:TField;
begin
   fs := TField.Create(nil);
   fs.FieldName := 'Field1';
   fs.DisplayLabel := 'NEWField';
   fs.SetFieldType(ftString);
   Query1.Fields.Add(fs);
   ShowMessage(Query1.FindField('Field1').DisplayLabel);
其中fs.SetFieldType(ftString)好像不起作用，query.open时，抱错：unknown fieldtype
我用的是TOraQuery,连接Oracle数据库，请高人指点