مشكل مع thread - نسخة قابلة للطباعة

كود :
unit Unit1;

interface

uses
  Classes;

type
  TMyThread = class(TThread)
  private
    { Déclarations privées }
  protected
    procedure Execute; override;
  end;

implementation
[COLOR="SeaGreen"]
{ Important : les méthodes et propriétés des objets de la VCL peuvent uniquement
  être utilisées dans une méthode appelée en utilisant Synchronize, comme :

      Synchronize(UpdateCaption);

  où UpdateCaption serait de la forme

    procedure TMyThread.UpdateCaption;
    begin
      Form1.Caption := 'Mis à jour dans le thread';
    end;

    or

    Synchronize(
      procedure
      begin
        Form1.Caption := 'Mis à jour dans le thread via une méthode anonyme'
      end
      )
    );

  où une méthode anonyme est passée.

  De la même façon, le développeur peut appeler la méthode Queue avec des paramètres similaires
  à ci-dessus, au lieu de passer une autre classe TThread en tant que premier paramètre, en plaçant
  le thread appelant dans une file d'attente avec l'autre thread.
    
}
[/COLOR]
{ TMyThread }

procedure TMyThread.Execute;
begin
  { Placez le code du thread ici }
end;

end.