La ultima posicion en delphi se usa con
LastDelimiter que como parametros recibe un string con los delimitadores (en este caso el espacio) a buscar y la cadena a examinar
Código Delphi
[-]
function UPalabra(s:string):string;
begin
Result:=copy(s,LastDelimiter(' ',s),Length(s));
end;
La función anterior llamada con 'Adios Mundo Cruel'devuelve Cruel
para buscar todo menos la ultima palabra sería
Código Delphi
[-]
function UPalabra(s:string):string;
begin
Result:=copy(s,1,LastDelimiter(' ',s));
end;