D7 中我想实现用易个线程给ListBox中写系统运行日志？如何实现？？我写的代码不知道那里有问题

 我的代码如下？unit Thread;interfaceuses//属性：
//FreeOnTerminate----指定线程结束时是否自动释放内存
//Handle-----------------线程句柄
//Priority----------------线程优先极
//Suspended-------------判断线程是否挂起
//Terminated-----------判断线程是否结束//方法：
//Execute-------线程的执行体函数
//Create--------线程的构造函数
//Destory-------线程的析构函数
//Resume--------继续执行线程
//Suspend-------使线程挂起
//Synchronize---同步函数
//Terminate-----结束线程
//WaitFor-------等待线程结束// Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,   
 AppEvnts,   StdCtrls,   ExtCtrls;   
type
  MyThread = class(TThread)
  private    { Private declarations }
  protected
    procedure Execute; override;
 
  public
      list:TListbox;
      procedure MoveShape  ;
    Constructor  Create(list:TListbox);   //
  end;
var
  my:MyThread;
implementationProcedure   MyThread.MoveShape;   
  Begin          list.Items.Add('OK');
  End;
procedure MyThread.Execute;
begin   
          While   Not   TerMinated   do
          Begin
          Synchronize(moveShape);   
          End;
end;
 Constructor   MyThread.Create(list:TListbox);
      Begin   
      inherited   Create(Suspended);
      FreeOnTerminate:=True;
      End;   end.procedure TForm1.Button4Click(Sender: TObject);
begin
  my:=MyThread.Create(ListBox1);
     
     end;