Skip to main content

texto reduciendo 1 carácter cada vez

¿Como crear un algoritmo en delphi para mostrar un texto reduciendo 1 carácter cada vez, usando function?

  ejem:
  hola mundo
  hola mund
  hola mun
  hola mu
  hola m
  hola 
  hol
  ho
  h