简单的多线程问题，解决后立即结贴！！

Question

单击stop，总是报内存冲突错误单元A：
procedure TMyThread.Execute;
var
I:Integer;
begin
I:=0;
while not terminated do
begin
   Form1.Memo1.Lines.Add(IntToStr(I));
   sleep(100);
   I:=I+1;
end;
end;
单元B（窗体）：
procedure TForm1.Button1Click(Sender: TObject);
var
myt:TMyThread;
beginif Button1.caption='start' then
  begin
    begin
    myt:= TMyThread.Create(true);
    myt.FreeOnTerminate:=true;
    myt.Resume;
    Button1.caption:='stop';
    end;
  end
else
  begin
    myt.Terminate;
    Button1.caption:='start';  end;end;

Answer 1

在线程中使用VCL组件需要同步一下。可以变通一下，在线程中发送消息到主窗体，主窗体再来操作VCL组件。