Doble Clic a tu Dataset del Grid (TTable, Tquery,etc), boton derecho en la pantalla que se abre y "Add all Fields", clic en el campo que desees, inspector de objetos, evento OnGetText, ahí tienes un parámetro en el evento que puedes modificar viene con "
var Text:String", ahí es donde puedes reemplazar por asteroides
el texto.
Saludos