Exibir nome do campo de uma tabela em modo de execução

Gostaria de saber como exibir o nome do campo de uma tabela ?

Estou tentando assim :

if query.FieldByName(´Campo1´).OldValue <> query.FieldByName(´Campo1´).NewValue then

Showmessage(query.DataSetField.FieldName)

Mas está dando um erro no executavel em modo de execução.

Obrigado.