code du Thread

{ TMyThread }
procedure TMyThread.Execute;
begin
  {... fait quelque chose dans un thread ...}
  Synchronize(@SynchroEnum); // Appel une procedure synchronisée avec le thread principal
end;
 
 
procedure TMyThread.SynchroEnum;
begin
  {... Fait quelque chose synchronisé avec le thread principal ...}
end;
 
constructor TMyThread.Create(CreateSuspended: boolean);
begin
  FreeOnTerminate := True;
  inherited Create(CreateSuspended);
end;

  FThread := TMyThread.Create(True); // Create Suspended
  FThread.OnTerminate:=@ReceptThreadTerminate;
  FThread.Start; // et non pas Execute !
 

Avec TThreadList → https://www.freepascal.org/docs-html/rtl/classes/tthreadlist.html

• Discussion sur : How to terminate the thread correctly?
• PDF : Introduction to thread programming in Lazarus