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);