Para obtener la última subcadena puedes hacer algo como:
Código Delphi
[-]
function GetLasToken(Str: string): string;
var
TempStr: string;
P: Integer;
begin
TempStr := Str;
P := Pos(' ', TempStr);
while P > 0 do
begin
Delete(TempStr, 1, P);
P := Pos(' ', TempStr)
end;
Result := TempStr
end;
Saludos...