Extraer última palabra de una frase

[[coso]]

Hola, tambien puedes usar strRscan

Código Delphi [-]
result := strRscan(PChar(s),' ') + 1;

EDITO : si no se encuentra ' ', entonces strRscan da nil por lo que result := nil + 1 y excepcion correspondiente. lo correcto seria hacer : if Pos(' ',s) then result := strRscan(PChar(s),' ') + 1 o bien comprobar de otra manera que strRscan no es nil. Saludos.