Sencillamente creando nosotros mismos el cursor ("caret") y mostrándolo. En la clase TTxtEdit se usa uno, busca por "caret" dentro de ttxtedit.prg y verás como se usa.
En el caso de que el propio GET lo eliminase, se podría forzar (supongo) usando un timer