type
  TSyncObj = class(TObject)
  public
    procedure SyncMethod;
  end;

procedure TSyncObj.SyncMethod;
begin
  Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  o: TSyncObj;
begin
  o := TSyncObj.Create;
  TThread.Synchronize(nil, o.SyncMethod);
end;