多线程修改VCL控件造成的ntdll.dll错

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1574375
问题：我调试老是提示： NTDLL.DLL出错
线程中：

Execute 中调用一个写在线程单元的过程 P ,p 执行完后调用Call 过程，如下：

procedure TDatav.Execute ;
begin
if .....
begin
p ;
PP: Exit ;
end ;
else
...
End ;

procedure p() ; //线程单元中写着
begin
... ;
Call ;
end ;

procedure call(s1,r,re:string);//线程单元中写着
begin
Lock.Enter ;
if FlagCS = '0' then
begin
//一个处理
end else
Begin
Form1.Edit1.Text := ... ;
End;
Lock.Free ;
end;

调用：
procedure TForm1.Button1Click(Sender: TObject);
begin
FlagCs := '' ;
FlagCS := '1' ;
with TDatav.Create(Edit1.Text,Edit2.Text,Edit3.Text) do
begin
if Suspended then Resume;
End ;
end;

第一次点击 Button1 没有错误，第二次点击时提示： NTDLL.DLL 出错，错误行为 PP 行
也就是　Exit 那行

怎么办？？

回答：
call()方法要用保护办法保护起来，一般来说只要你用了VCL可以显示的恐件的部分都要
用保护sy*****方法进行同步处理!

我用 TCriticalSection 同步了呀，就那个 Lock
线程外已经： Lock := TCriticalSection.Create ; 创建了，不过这个也是Lock 也是
非线程单元的全局变量，是不是这儿错了？？

你如果调用VCL的可见恐件必须要用同步方法外包，或者用
API函数sendmessage或者postmessage，否则要出问题，
DELPHI的线程类生成的单元里有说明的

一般来说，VCL可视控件都不是线程安全的，非可视的基本都是，
这个问题论坛里有很多帖子讨论这个问题，你可以找来看看

TCriticalSection 只是对全局的数据比如变量进行保护，不能保护VCL类，尤其是有
strings属性的VCL类，即使只有一个线程，也不能在没有保护方法的线程方法里
创建窗体，否则要出错，我试过，就是NTDLL出错！
在线程里修改VCL可见控件不太稳定，有的时候出错，有的时候是好的，
所以BORLAND建议用保护方法
当然相信你的没错了[:)]，就是不明白为何两种同步的效果不同？

还有，synchronize(P) ,p 应该无参数，但我的那个过程 Call 要有三个参数，怎么处理？

synchronize(P) 方法根据不同的DELPHI版本，DELPHI用的是不同的处理方式，
不过都是利用消息队列进行VCL可视控件的同步，所以一般VCL可视组件要用
synchronize同步，至于你的参数可以改成线程类的私有变量