[SpectraL]

Чего не хватает в следующем коде?

Код:

unit Unit2;

interface

uses
  {модули};

type
  TThread1 = class(TThread)
  protected
    procedure Execute; override;
    procedure DoTerminate1;
  end;

var
  Thread1: TThread1; // поток создаётся в TForm1.FormCreate

implementation

procedure TThread1.Execute;
begin
  Thread1.OnTerminate := Thread1.DoTerminate1;
  {операторы}
end;

procedure TThread1.DoTerminate1;
begin
  {операторы}
end;

end.