[Piligrim]

а чем вас не устраивает тогда

name[i] := Copy(g[i], 0, Pos(g[i], "/"));