Поток не начинает работать

type
  AThrTri = array[0..9] of TThreadTriangl;
var
  ...
  ATThri: AThrTri;
...
for i := 0 to lt-1 do
    begin
        ATThri[i] := TThreadTriangl.Create(True);
        ATThri[i].FreeOnTerminate := False;
//        ATThri[i].setData(Trin, Shell, cppf, tsdp);
        ATThri[i].Priority := tpLower;
        ATThri[i].Resume;
      end;
    end;
...
//Удаление потоков.
...
 
procedure TThreadM.Execute();
var
  i: Byte;
begin
  { Place thread code here }
  Ok := False; i := 0;
  try
    Inc(i);
  finally
    Ok := True;
  end;
end;
 
//Блок Потока (TThreadM)
 
unit MyThread;
 
interface
 
uses
  System.Classes, TTypes, ClassDepth;
 
type
  TThreadTriangl = class(TThread)
  private
    Ok: Boolean;
    { Private declarations }
  public
    constructor Create(CreateSuspennded: Boolean);
    function IsOk(): Boolean;
  protected
    procedure Execute; override;
end;
 
type
  AThrTri = array[0..9] of TThreadTriangl;
 
implementation
 
{ 
  Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,
 
      Synchronize(UpdateCaption);  
 
  and UpdateCaption could look like,
 
    procedure TThreadTriabgl.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; 
    
    or 
    
    Synchronize( 
      procedure 
      begin
        Form1.Caption := 'Updated in thread via an anonymous method' 
      end
      )
    );
    
  where an anonymous method is passed.
  
  Similarly, the developer can call the Queue method with similar parameters as 
  above, instead passing another TThread class as the first parameter, putting
  the calling thread in a queue with the other thread.
    
}
 
{ TThreadTriabgl }
 
constructor TThreadTriangl.Create(CreateSuspennded: Boolean);
begin
  inherited Create(CreateSuspennded);
  Ok := True;
  PTriw := nil;
  PShell := nil;
end;
 
procedure TThreadTriangl.Execute();
begin
.. Указано в начале
end;
 
function TThreadTriangl.IsOk(): Boolean;
begin
  Result := Ok;
end;
 
end.

type
  AThrTri = array[0..9] of TThreadTriangl;