[SpectraL]

Напишите пожалуйста пример.

[NumLock]

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  tt: TThread;
begin
  tt.OnTerminate:=FormCreate;
end;

[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.

[NumLock]

см. 2-е сообщение

[SpectraL]

Еды что ли не хватает?

[SpectraL]

Пожалуйста скажите я в отчаинии.