اشكال در تريد

[aserfg]

با سلام من يه نمونه تريد ساده رو براي فهم بهتر خودم به شكل زير نوشتم توضيح اين كه يه باتن و يه پرگرس بار روي فرم گذاشتم و كد مقابل رو ست كردم ولي كمپايل نمي شه لطفا راهنمايي بفرمايين اشكال كجاست؟

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
mythread=class(tthread)
private
procedure doprogress;
protected
procedure Execute; override;
end;




type
TForm1 = class(TForm)
Button1: TButton;
pb: TProgressBar;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
procedure mythread.doprogress;
var i:integer;
begin
for i:=1 to 10 do
form1.pb.StepIt;
end;
procedure mythread.Execute;
begin
Synchronize(doProgress);

Exit;

end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var h:mythread;
begin
h.Create(true);
h.FreeOnTerminate := True;
h.Resume;
h.Execute;
end;

end.

[شهریار بهمن پور]

h := mythread.create(True)
h.resume;