Voici une autre version avec fonctions BeginThread,EndThread ...

interface

uses
Windows, Messages, Controls, Forms,Dialogs;

type
TProcess= procedure of object;