Delphi - MOSTRAR COMO RESULTADO LA ULTIMA PALABRA DE UNA CADENA

procedure TFRM_ULTIMA_PALABRA.Button1Click(Sender: TObject);

VAR

FRASE:STRING;

I:INTEGER;

LETRA:STRING;

PALABRA:STRING;

begin

   PALABRA:=EMPTYSTR;//INICILIZAMOS VACIA LA VARIABLE PALABRA;

   FRASE:=TRIM(Edit1.TEXT); //ASIGNA A LA VARIABLE FRASE DE TIPO CADENA, EL VALOR DE LA CAJA DE TEXTO Y LE QUITA POSIBLES ESPACIOS AL INICIO AL FINAL

   //////////// RECORREMOS LA FRASE PARA PARTICIONAR LAS PALABRAS QUE LA COMPONEN

   for I := 1 to LENGTH(FRASE) do //DE LA POSICION 1 (PRIMERA LETRA) HASTA EL LARGO DE LA FRASE (ULTIMA LETRA)

    BEGIN

       LETRA:=FRASE[I];

            if LETRA<>' ' then //SI LA LETRA ACTUAL ES DIFERENTE DE ESPACIO EN BLANCO

               BEGIN

                 PALABRA:=PALABRA+LETRA; //VAMOS FORMANDO LA PALABRA

               END

            ELSE

               BEGIN

                 PALABRA:=EmptyStr;//SI HAY ESPACIO EN BLANCO REINICIAMOS A VACIA LA PALABRA

               END;

    END;

   Edit2.TEXT:=PALABRA; //AL FINAL DEL CICLO QUE RECORRE LA FRASE NOS QUEDA LA ULTIMA PALABRA

end;