Creation dune Form ds un Thread

Slt tt le monde,
voila jessaye de faire le code suivant ds la procedure Execute dun Thread:

Code:

---

1 2 3 4 5 6 7 8 9

AProgress := TQRProgressForm.Create(Application); Try AProgress.QRPrinter := QRPrinter; if ShowProgress then AProgress.Show; QRPrinter.Client := AProgress; Finally AProgress.Free; end ;

---

mais en mode debug sa plante sur la ligne:

Code:

---

1 2	AProgress := TQRProgressForm.Create(Application);

---

une Idee ptet ? :arf:

Code:

---

1 2	Synchronize(MyCreateForm);

---