Imprimir o no en QRDBText segun el signo

[Carmelo Cash]

Hola Foro:
Necesito hacer un informe con dos columnas "Entradas" "Salidas"
EL campo que tengo que imprimir (Cantidad), si es positivo lo muestro en "Entrada", y si en negativo en "Salida".
Yo pensaba hacer algo en el evento onprint de cada una de los QRDBText, algo así como:
If strtocurr(QRDBText1.caption)<0 then QRDBText1.caption='0';
y lo mismo para la otra pero usando '>'.

Pero esto no anda y no sé la manera correcta.
Estoy utilizando Delphi 7.
Espero que alguno me puede pasar la sintaxis para hacer esto.
"Gracias Totales"