[v1s2222]

Можно. Хоть так:

Код:

uses StrUtils;

...
X:=0;
for i:=1 to 5 do // на 5 позицию
  X := X+1+PosEx('#', S);

Теперь X - это номер 5 сивола "#".
Но я говорю, что выше описанный мной метод будет эффективнее и не будет разных ошибок... вот и все.