Recuperar los nombres de los campos almacenados en una query
 

Buenas tardes, primero gracias por vuestro tiempo.
Segundo, no me linches por lo absurdo de la pregunta, pero no se que hago mal.

El problema es el siguiente. Tengo una consulta sql con dos registros, realizada con un componente sql de interbase.

Quiero recorrer la consulta para obtener los nombres de los campos que contiene la query, pero con el procedimiento que empleo siempre me devuelve vacio.

for i:= 0 to Query.fieldcount -1 do
showmessage(query.fieldlist.fields.names[i]);

Gracias por vuestra ayuda.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
I:integer;
begin
for i:= 0 to Query1.fieldcount -1 do
showmessage(query1.fields[i].FullName );
end;

Un Saludo.