実際のパラメータが多すぎるというエラーが表示されます
Procedure TSub.ReadUsers;
var
iPos , i : integer;
begin
ReadLine;
iPos := 0;
for i := 1 to Counter do
iPos := pos('#',sLine);
arrUsers[i] := copy(sLine, 1, ipos-1);
delete(sLine,1,iPos);//error in this line
iPos := pos('#',sLine);
end;