请各位高手指点 简单的多线程

Question

请问以下代码那里错了呢?谢谢??
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var thr:MyThread;
begin
thr.resume;
end;end.

Answer 1

MyThread 是线程类的子类 如下:unit Unit2;interfaceuses
  Classes,sysutils;type
  MyThread = class(TThread)
  private
    { Private declarations }
   // procedure Create;
  protected
    procedure Execute; override;
    procedure se;
  public
 
  end;implementationuses Unit1;
{ MyThread }
procedure MyThread.Execute;
var
  tem:integer;
begin
  { Place thread code here }
  while true do
  begin
  self.Synchronize(se);
 end
end;
 procedure MyThread.se;
 begin
  Form1.Edit1.Text:='121';
 end;
end.

Answer 2

请问 那里错了,一Resume进程就出错 是怎么回事
?????????????????????????????

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var thr:MyThread;
begin
  thr := MyThread.Create(True);
  thr.resume;
end;

Answer 4

thr := MyThread.Create(True);  //是怎么回事