Trasponer texto

[TexMex]

Hola a todos, tengo una duda, necesito trasponer texto (en un Memo) de esta forma:

Original:

hola hoy es lunes

Resultado buscado:

senul se yoh aloh

Gracias.

[dec]

Hola,

Código Delphi [-]
Function String_Reverse(S : String): String;
Var
   i : Integer;
Begin
   Result := '';
   For i := Length(S) DownTo 1 Do
   Begin
     Result := Result + Copy(S,i,1) ;
   End;
End;

Sí; del amigo Zarko Gajic es.

[luisgutierrezb]

si tienes Delphi7 en adelante, ya la funcion ya viene hecha solo agrega strutils a tu lista de unidades

[dec]

Hola,

El caso es que me sonaba en Delphi 7 esa función... Gracias por recordarlo Luis.

[roman]

Creo que no viene de más poner el nombre de la tal función:

ReverseString

// Saludos

[TexMex]

Muchas Gracias, por la dedicación y rapidéz.

Gracias.