概述：        

VCL實現同步的另一種方法就是呼叫執行緒類的Synchronize的過程，此過程需要一個無引數的procedure，故在此procedure中無法傳遞引數值，但可以通過類的成員來實現。在類的Execute中只須呼叫Synchronize就可以了。

實現：      

         關鍵在於對Synchronize引數的定義。定義一個無引數的procedure通過它來訪問類的成員變數szName和nIndex。在類的過載Execute中呼叫Synchronize。子類的定義如下：
unit

TChildThread;

interfaceuses =Classes,

Messages,Windows,SysUtils;

const MAX_LEN = 260;

typeTChildThreads = class(TThread)

private      { Private declarations }protectedprocedure Execute; override;//同步函式的宣告
procedure UpdateData;

public      

szName : array[0..MAX_LEN] of Char;  

nIndex : Integer;end;implementationuses         

Unit1;

{ Important: Methods and properties of objects in VCL or CLX can only be usedin a method called using Synchronize, for example,        

Synchronize(UpdateCaption);

and UpdateCaption could look like,      

procedure TChildThread.UpdateCaption;     

begin        

Form1.Caption := 'Updated in a thread';      

end; }{ TChildThread }//同步函式的實現procedure TChildThreads.UpdateData;begin         Form1.ShowData.Items.Add(PChar(@szName));

end;

procedure TChildThreads.Execute;

begin{ Place thread code here }//呼叫同步過程

Synchronize(UpdateData);

end;

end.

主程的設計與《Delphi中多執行緒用訊息實現VCL資料同步顯示》基本一致，但為了與其顯示相同結果，在生成子執行緒中語句順序作了一下調整。以下程式碼僅顯示與上一篇不同的一個過程，其它程式碼不再贅述。
procedure TForm1.StartThreadsClick(Sender: TObject);var         

oChildThread : array[0..1000] of TChildThreads;

i : Integer;

begin        

For i := 0 to 1000 do

begin      

oChildThread[i] := TChildThreads.Create(true);    //注意這裡的程式碼與訊息同步中的順序。     oChildThread[i].nIndex := i;      

strcopy(@oChildThread[i].szName,PChar('Child' + IntToStr(i)));      

oChildThread[i].Resume;

end;

end;

===============================================

另一個例子:http://topic.csdn.net/t/20011015/02/323001.html

   unit    Unit1;  
   
   interface  
   
   uses  
       Windows,    Messages,    SysUtils,    Variants,    Classes,    Graphics,    Controls,    Forms,  
       Dialogs,    StdCtrls,    ExtCtrls;  
   
   type  
       TForm1    =    class(TForm)  
           Button1:    TButton;  
           Edit1:    TEdit;  
           Image1:    TImage;  
           procedure    Button1Click(Sender:    TObject);  
       private  
           {    Private    declarations    }  
       public  
           {    Public    declarations    }  
       end;  
   
       TMyThread    =    class(TThread)  
       private  
           child    :    TComponent;  
   
       public  
           procedure    draw;  
           constructor    Create(parent    :    TComponent);  
           procedure    Execute;    override;  
   
       end;  
   
   var  
       Form1:    TForm1;  
   implementation  
   
   {$R    *.dfm}  
   
   {    TMyThread    }  
   
   constructor    TMyThread.Create(parent:    TComponent);  
   begin  
       child    :=    parent;  
       inherited    Create(false);  
   end;  
   
   procedure    TMyThread.draw;  
   begin  
       if    (child    is    TEdit)    then  
       begin  
           (child    as    TEdit).Text    :=    'OK';  
       end  
       else    if(child    is    TImage)    then  
       begin  
           (child    as    TImage).Canvas.Brush.Color    :=    clBlue;  
           (child    as    TImage).Canvas.FillRect(rect(0,0,100,100));  
       end;  
   end;  
   
   procedure    TMyThread.Execute;  
   begin  
       inherited;  
       synchronize(draw);  
       if    Terminated    then    Exit;  
   end;  
   
   procedure    TForm1.Button1Click(Sender:    TObject);  
   
   begin  
       TMythread.Create(Edit1);  
       TMythread.Create(image1);  
   end;