Зависает цикл while

[T_I_T_A_N]

i:=pos('#',name);
t:=i+pos(';',copy(name,i,length(name)-i+1));
while (i<>0) and (t>i) do
begin
delete(name,i,(t-i));
i:=pos('#',name);
t:=i+pos(';',copy(name,i,length(name)-i+1));;
end;

вот цикл который работает всегда даже если в начяле стоит ';'

[fezilk24]

Спасибо =)

[fezilk24]

t:=i+pos(';',copy(name,i,length(name)-i+1));

[DCC Error] Unit1.pas(142): E2010 Incompatible types: 'TStringList' and 'Integer'

[fezilk24]

извиняюсь, забыл, что переменная T у меня есть уже )