为什么简单的多线程会抛出EAccessViolation错误呢?

Question

就一个很简单的多线程例子调用类:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,uMyThread;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   myThread:MyThread;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
myThread:=MyThread.Create(true);
myThread.Resume;
end;end.
线程:
unit uMyThread;interfaceuses
  Classes;type
  MyThread = class(TThread)
  private
  protected
    procedure Execute; override;
  end;implementation procedure MyThread.Execute;
var
  i:Integer;
begin
 inc(i)
end;end.

Answer 1

看你定义的，变量跟类都一样...public
  myThread:MyThread;
end;

Answer 2

procedure MyThread.Execute;
var
  i:Integer;
begin
 inc(i)
end;这个一般没问题，不过还是得这样：
procedure MyThread.Execute;
var
  i:Integer;
begin
 i:=0;
 inc(i)
end;