delphi query 取字段名,该怎么处理

delphi query 取字段名
比如用query.sql.add( 'select * from table1 '); 
query.open; 
要取得table1中各个字段的值，怎么弄。 
我用query.first; 
s:string; 
s:=query1.fieldbyname( '字段 ').asstring

可不可以取到里面的那个“字段”

[解决办法]
取第1個字段名
query1.Fields[0].FieldName;


取出所有字段名，放在Memo1中
query1.GetFieldNames(Memo1.Lines);