No se si te he entendido o es una pregunta con trampa, pero para saber el código del registro actualmente posicionado, sólo has de "preguntarselo" al dataset (la Query en tu caso)
Código:
Query.FieldByName('CompoCodigo').Asxxxxx
donde Asxxxxx puede ser AsString, AsInteger, AsFloat,.....