[[maeyanes]]

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...