在Delphi中，可以使用TThread.Synchronize方法來實現多線程的同步。

TThread.Synchronize方法接受兩個參數：第一個參數是一個匿名方法或者一個方法指針，用于指定在主線程中執行的代碼；第二個參數是一個數組，表示傳遞給匿名方法或方法指針的參數。

以下是一個示例代碼，演示了如何使用TThread.Synchronize方法來實現多線程的同步：

unit Main;

interface

uses
  System.Classes, System.SysUtils, Vcl.Forms, Vcl.StdCtrls;

type
  TMyThread = class(TThread)
  private
    FValue: Integer;
  protected
    procedure Execute; override;
  public
    constructor Create(AValue: Integer);
    property Value: Integer read FValue;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    procedure UpdateLabel(AValue: Integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyThread }

constructor TMyThread.Create(AValue: Integer);
begin
  inherited Create(True);
  FValue := AValue;
end;

procedure TMyThread.Execute;
begin
  // 在這里執行耗時的操作
  Sleep(5000);
  // 在主線程中更新界面
  TThread.Synchronize(nil,
    procedure
    begin
      Form1.UpdateLabel(Value);
    end);
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  MyThread: TMyThread;
begin
  MyThread := TMyThread.Create(10);
  MyThread.Start;
end;

procedure TForm1.UpdateLabel(AValue: Integer);
begin
  Label1.Caption := 'Value: ' + IntToStr(AValue);
end;

end.

在上述示例代碼中，當點擊按鈕Button1時，會創建一個TMyThread線程，并在線程中執行耗時的操作，然后通過TThread.Synchronize方法來更新Label1的Caption屬性。

需要注意的是，TThread.Synchronize方法是阻塞的，也就是說，線程會等待主線程執行完成后才會繼續執行。因此，如果在主線程中執行的代碼也比較耗時，可能會導致程序的響應性變差。如果需要在后臺執行耗時的操作，建議使用TThread.Queue方法來實現異步更新界面。