delphi7 内部错误原因找到了，该如何解决呢？

threadvar
zx,zy,word,word2:double;

procedure guocheng23();  
Begin
  If (zx>word) and (zy<word2) then
  word:=word+3;  
End;

zx,zy是一个线程内的全局变量，zx，zy的值是在另外一个过程guocheng22()中得到的，这样编译的时候会产生内部错误，找了半天的原因，发现如果在guocheng23中再重新声明一个变量zx,zy，就不会产生错误，可是zx,zy这2个变量是全局的，该怎么办呢？
//**********下面是在过程中重新声明后的guocheng23*****************
procedure guocheng23();
Var
zx,zy:double;  
Begin
  If (zx>word) and (zy<word2) then
  word:=word+3;  
End;

给线程传参
http://topic.csdn.net/u/20100820/18/8ad25047-86b5-47c3-8e28-c9afda69bc79.html