Cara Buat Thread

1.pada blok type, nama thread.

2.pada blok public , buat variabel "Stop:boolean;" dan procedure "constructor Create;"

3.pada blok protected , buat procedure "Execute;Override;"

Step 1-3 :

-----------------------------------------------------------------------------------------------------------------------

type

  { trModem }

  trModem = class (TTHread)

    protected

      procedure Execute;Override;

    public

      Stop:Boolean;

      constructor Create;

  end; 

-----------------------------------------------------------------------------------------------------------------------

4.pada blok implementation , pada constructor buat sbb:

-----------------------------------------------------------------------------------------------------------------------

constructor trModem.Create;

begin

  inherited Create(False);

  FreeOnTerminate:=True;

end; 

-----------------------------------------------------------------------------------------------------------------------

5.pada blok implementation , 

-----------------------------------------------------------------------------------------------------------------------

procedure trModem.Execute;

label atStart;

begin

  atStart:

    if Stop then Exit;

    //proses program disini

    //.....

    

    //tester

    Showmessage('tester');

    Sleep(2000);

  Goto atStart;

end; 

-----------------------------------------------------------------------------------------------------------------------

Catatan :

-var Stop digunakan untuk mengakhiri thread dan otomatis dealokasi memory ( FreeOnTerminate)

-inherited = 

-override =