[NumLock]

да, каюсь, про AfterConstruction я прозевал с какой версии Они это изменили.

в примерах до сих пор:

Код:

{ TSortThread }

constructor TSortThread.Create(Box: TPaintBox; var SortArray: array of Integer);
begin
  FBox := Box;
  FSortArray := @SortArray;
  FSize := High(SortArray) - Low(SortArray) + 1;
  FreeOnTerminate := True;
  inherited Create(False);
end;

c:\Program Files\Borland\Delphi7\Demos\Threads\SortThds.pas