[SpectraL]

Событие OnTerminate используется следующим образом:

Код:

unit Unit2;
 
interface
 
uses
  {модули};
 
type
  TThread1 = class(TThread)
  protected
    procedure Execute; override;
    procedure DoTerminate; override; // объявляем процедуру события OnTerminate
  end;
 
var
  Thread1: TThread1; // поток создаётся в TForm1.FormCreate
 
implementation
 
procedure TThread1.Execute;
begin
  {операторы}
end;
 
procedure TThread1.DoTerminate; // процедура события OnTerminate
begin
  {операторы}
end;
 
end.