[beZ_probleM]

помоему там минус единицу ещё нужно

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


Для следующего слова

:=Copy(g[i], Pos(g[i], "/")+1, Pos(g[i], "\")-1); 


и для последнего

:=Copy(g[i], Pos(g[i], "\")+1, length(g[i])-1);