Непонятное поведение программы с потоками

unit PrimeForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TPrimeFrm = class(TForm)
    NumEdit: TEdit;
    SpawnButton: TButton;
    procedure SpawnButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  PrimeFrm: TPrimeFrm;
 
implementation
 
uses PrimeThread;
 
{$R *.dfm}
 
procedure TPrimeFrm.SpawnButtonClick(Sender: TObject);
var NewThread:TPrimeThrd;
begin
  NewThread:=TPrimeThrd.Create(True);
  NewThread.FreeOnTerminate:=True;
  try
    NewThread.TestNumber:=StrToInt(NumEdit.Text);
    NewThread.Resume;
  except on EConvertError do
    begin
      NewThread.Free;
      ShowMessage(NumEdit.Text + ' - Это не положительное целое число!');
    end;    
  end;
end;
 
end.

unit PrimeThread;
 
interface
 
uses Classes;
 
type
  TPrimeThrd = class(TThread)
  private
    FTestNumber: integer;
  protected
    function IsPrime: boolean;
    procedure Execute; override;
  public
    property TestNumber: integer write FTestNumber;
  end;
 
implementation
 
uses SysUtils, Dialogs;
 
function TPrimeThrd.IsPrime: boolean;
Var iter:integer;
begin
  Result:=True;
  if FTestNumber<0 then
  begin
    Result:=False;
    Exit;
  end;
 
  if FTestNumber<=2 then Exit;
 
  for iter := 2 to FTestNumber - 1 do
  if (FTestNumber mod iter) =0 then
  begin
    Result:=False;
    {Exit;}
  end;
end;
 
procedure TPrimeThrd.Execute;
begin
  if IsPrime then
    ShowMessage(IntToStr(FTestNumber) + ' - простое число')
  else
    ShowMessage(IntToStr(FTestNumber) + ' - не простое число');
end;
 
end.

  
  NewThread:=TPrimeThrd.Create(True);
  NewThread.FreeOnTerminate:=True;
  try
    NewThread.TestNumber:=StrToInt(NumEdit.Text); 'Тут ошибка'
    NewThread.Resume;
  except on EConvertError do
    begin
      NewThread.Free;
      ShowMessage(NumEdit.Text...);
    end;    
  end;

NewThread:=TPrimeThrd.Create(True); 'Создали поток'
  NewThread.FreeOnTerminate:=True; 'Задали параметр'
  try
    NewThread.TestNumber:=StrToInt(NumEdit.Text); 'Попробовали в Integer запихнуть String - Ошибка'
    NewThread.Resume; 'Не отрабатывается'
  except on EConvertError do
    begin
      NewThread.Free; 'Не отрабатывается'
      ShowMessage(NumEdit.Text...); 'Не отрабатывается'
    end;    
  end;

ShowMessage(NumEdit.Text + ' - Это не положительное целое число!');

  try
    num:=strToInt(NumEdit.text);
  except on E:Exception do
      ShowMessage(NumEdit.Text + ' - не положительное целое число!');
  end;
 
  NewThread:=TPrimeThrd.Create(True);
  NewThread.FreeOnTerminate:=True;
  NewThread.TestNumber:=num;

var   NewThread:TPrimeThrd; 'Глобальная переменная'
 
procedure TPrimeFrm.SpawnButtonClick(Sender: TObject);
begin
  NewThread:=TPrimeThrd.Create(True);
  NewThread.FreeOnTerminate:=True;
end;
 
procedure TPrimeFrm.SpawnButton2Click(Sender: TObject);
begin
  NewThread.Free; 'Ругается!'
end;

procedure TPrimeFrm.SpawnButtonClick(Sender: TObject);
begin
  NewThread:=TPrimeThrd.Create(True);
end;
 
procedure TPrimeFrm.SpawnButton2Click(Sender: TObject);
begin
  NewThread.free;
end;

procedure TPrimeFrm.SpawnButtonClick(Sender: TObject);
var NewThread:TPrimeThrd;
begin
  NewThread:=TPrimeThrd.Create(True);
  try
    NewThread.TestNumber:=StrToInt(NumEdit.Text);
    NewThread.Resume;
  except on EConvertError do
    begin
      NewThread.Free;
      ShowMessage(NumEdit.Text + ' - Это не положительное целое число!');
    end;
  end;
end;

NewThread:=TPrimeThrd.Create(True); 'Создали поток'
  NewThread.FreeOnTerminate:=True; 'Задали параметр'
  try
    NewThread.TestNumber:=StrToInt(NumEdit.Text); 'Попробовали в Integer запихнуть String - Ошибка'
    NewThread.Resume; 'Не отрабатывается'
  except on EConvertError do
    begin
      ShowMessage(NumEdit.Text...); 
    end;    
  end;

destructor Destroy; override;
...
destructor TNewThread.Destroy; 
begin
  inherited;
end;

procedure TPrimeFrm.SpawnButtonClick(Sender: TObject);
var NewThread:TPrimeThrd;
begin
  NewThread:=TPrimeThrd.Create(True);
  NewThread.FreeOnTerminate:=True;
  try
    NewThread.TestNumber:=StrToInt(NumEdit.Text);
    NewThread.Resume;
  except on EConvertError do
    begin
      NewThread.FreeOnTerminate:=False;
      NewThread.Free;
      ShowMessage(NumEdit.Text + ' - Это не положительное целое число!');
    end;
  end;
end;

{System.pas}
procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;
 
destructor TObject.Destroy;
begin
end;
 
procedure TObject.AfterConstruction;
begin
end;
 
procedure TObject.BeforeDestruction;
begin
end;
 
{Classes.pas}
 
constructor TThread.Create(CreateSuspended: Boolean);
begin
  inherited Create;
  AddThread;
  FSuspended := CreateSuspended;
  FCreateSuspended := CreateSuspended;
  FHandle := BeginThread(nil, 0, @ThreadProc, Pointer(Self), CREATE_SUSPENDED, FThreadID);
  if FHandle = 0 then
    raise EThread.CreateResFmt(@SThreadCreateError, [SysErrorMessage(GetLastError)]);
end;
 
function ThreadProc(Thread: TThread): Integer;
var
  FreeThread: Boolean;
begin
  try
    if not Thread.Terminated then
    try
      Thread.Execute;
    except
      Thread.FFatalException := AcquireExceptionObject;
    end;
  finally
    FreeThread := Thread.FFreeOnTerminate;
    Result := Thread.FReturnValue;
    Thread.DoTerminate;
    Thread.FFinished := True;
    SignalSyncEvent;
    if FreeThread then Thread.Free;
    EndThread(Result);
  end;
end;
 
destructor TThread.Destroy;
begin
  if (FThreadID <> 0) and not FFinished then
  begin
    Terminate;
    if FCreateSuspended then
      Resume;
    WaitFor;
  end;
  if FHandle <> 0 then CloseHandle(FHandle);
  inherited Destroy;
  FFatalException.Free;
  RemoveThread;
end;