关于 ActiveForm 开发的线程序问题! 为什么这样会出错! 应该很简单! 我另一个ActiveX成功了,可是不执行Execute 搞好几天了!

Question

关于 ActiveForm 开发的线程序问题! 为什么这样会出错! 应该很简单! 我另一个ActiveX成功了,可是不执行Execute 搞好几天了!Unit1.pas
unit Unit1;interfaceuses
  Classes;type
  tt = class(TThread)
  private
    ss : string;
  protected
    procedure Execute; override;
    procedure ppp;
  public
    constructor Create(s:string);
  end;implementation
uses
    ActiveFormImpl1;procedure tt.ppp;
begin
    TActiveFormX1.Edit1.Text := ss;
end;constructor tt.Create(s:string);
begin
    inherited Create(False);
    ss := s;
end;procedure tt.Execute;
begin
    Synchronize(ppp);
end;end.