var
    StrLen, SpacePos: Integer;
    NameStr, TempStr: String;
begin
    SpacePos := PosEx(' ', NameStr, 0);
    StrLen := Length(NameStr) - SpacePos;
    TempStr := Copy(NameStr, SpacePos+1, StrLen);
end;