线程中的异常问题，给出合理答案或解决送500

Question

try
..........
  raise exception.create(';');//跳出异常
.........
except
on e: exception do //此处的异常居然不能访问，告我 e = inaccessible value
...............
end;
我已经重装系统了

Answer 1

没有什么问题啊，我做了一个试验，代码如下unit Unit2;interfaceuses
  Dialogs,Classes,SysUtils;type
  zzz = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;implementation{ zzz }procedure zzz.Execute;
var
  a:Integer;
begin
  try
    a:=0;
    if a>=0 then
      Raise Exception.Create('Error');
  except
    On E:Exception do Showmessage(E.Message);
  end;
end;end.

Answer 2

try
    InnerGetClientData(TCPServers.ValueFromIndex[j]);
    FSplash.ValueListEditor1.Items.Append('下载表' + ATableName + '的数据成功');
    break;
  except
    vPort := -1;
  end;
这是源代码。InnerGetClientData是用一个idtcpclient从服务器上读取数据的函数，TCPServers 是线程内部对象，FSplash是一个外部引用在发生异常时这些都没有出错，产看e的内容的时候说 e = inaccessible value