Pistas:
1. Solo hace falta una linea de codigo con un IF
2. Escribir en el editor de delphi ReverseString o AnsiReverseString y pulsar la tecla F1, pero como lo quieres para delphi 5 y no tiene esta funcion pues te valdria esto:
http://www.delphitricks.com/source-c..._a_string.html
Saludos