مشكل مع thread

[TF6M]

و عليكم السلام و رحمة الله و بركاته

قارن و إستنتج الخطأ :tong: ....

PHP كود :

unit MY_THREAD2;

interface

uses
  Classes,Windows,StdCtrls,SysUtils;

type
  TMY_THREAD2 = class(TThread)
  Private
   count : Byte;
   My_Label : TLabel;
  protected
    procedure Execute; override;
    procedure Enparallel;
  public
   constructor create(LABEL_Display : TLabel);
  end;

implementation

constructor TMY_THREAD2.create (LABEL_Display : TLabel);
begin
inherited create(False);
FreeOnTerminate:= False;
My_Label:=LABEL_Display;
end;

procedure TMY_THREAD2.Enparallel;
Begin
 My_Label.Caption:= IntToStr(count);
End;

procedure TMY_THREAD2.Execute;
begin
count :=0;
  repeat
    inc(count);
    Synchronize(Enparallel);
     Sleep(100);
  until (Terminated) or (count >=10);
MessageBoxA(0,'Thread Terminted !',Nil,0);
end;

end. 


بالتوفيق ,,