Problemas com comando for... HELP

Debugando o código abaixo no primeiro comando ´ for ´ o valor de ´ i ´ está correto na primeira vez que é executado (valor = 1), mas na hora de executar o segundo comando ´ for ´ o valor de ´ z ´ assume ´ 0 ´ ao invés de ´ 1 ´. Alguém sabe o por que disso?

var tam, x, i, z: integer;

for i:=1 to tam do begin
if EDString.Text[i]=´ ´ then begin
texto[x]:=copy(EDString.Text,0,i-1);
Inc(x);
end;
for z:=1 to x do begin
tam:=Pos(texto[z],Trim(IBQDProducaoDESCRICAO.AsString));
if (tam<>0) and (expressao=True) then begin
achou:=True;
break;
end else if (tam=0) and (expressao=False) then begin
achou:=True;
break;
end;