Освободить память после потока

[SPLER]

Hello! Ребят, такой вопрос:
Как освободить память, после завершения работы потока?
Вот код создания и приостановки потока, и то и другое осуществляется путем изменения State у CheckBox

procedure TForm1.CheckBox_NUM1Click(Sender: TObject);
begin
case CheckBox_NUM1.State of
    cbUnchecked:
      begin
        num1.Suspend;
        num1.Terminate;
      end;
    cbChecked:
      begin
        num1 := send_num1.Create(False);
      end;
  end;
end;

Вот код процедуры выполнения потока:

procedure send_num1.Execute;
begin
  while True do
    begin
      PostMessage(mHandle, WM_KEYDOWN, $00000061, $004F0001);
        Sleep(10);
      PostMessage(mHandle, WM_KEYUP, $00000061, $C04F0001);
      Sleep(StrToInt(Form1.Edit_num1.Text));
    end;
end;

Суть, более точнее: Запуская поток, к используемой памяти программы, накидывается 32-34 кб, при выключении (точнее при приостановке) работы потока, память не изменяется, при повторном запуске, еще +32-34 кб. В прицепе, ясно то, что Terminate не убивает, и не освобождает ресурсы потока. Так вот вопрос, как это дело исправить?
P.s. пробовал WaitFor & Free но программа зависает, пока, не осилю в чем беда, Help.

[Lardes]

procedure send_num1.Execute;
begin
  FreeOnTerminate := True;

  while True do
    begin
      PostMessage(mHandle, WM_KEYDOWN, $00000061, $004F0001);
        Sleep(10);
      PostMessage(mHandle, WM_KEYUP, $00000061, $C04F0001);
      Sleep(StrToInt(Form1.Edit_num1.Text));
    end;
end;

[SPLER]

Благодарю, сейчас испробую.

[SPLER]

Не помогло, после повторного запуска, так же +~30 кб.

[Аватар]

а Terminated кто в цикле потока проверять будет? Terminate поток не прекращает, а только этому самому Terminated True присваивает

[SPLER]

Я в курсе про Terminated, краткий пример можно нет? то что if.. lalala, ясно, но по сути, если приостанавливать поток, то и цикл прекращает работу, или вы имеете в виду отдельный поток?

[Пепел Феникса]

procedure send_num1.Execute;
begin
  FreeOnTerminate := True;

  while not Terminated do
    begin
      PostMessage(mHandle, WM_KEYDOWN, $00000061, $004F0001);
        Sleep(10);
      PostMessage(mHandle, WM_KEYUP, $00000061, $C04F0001);
      Sleep(StrToInt(Form1.Edit_num1.Text));
    end;
end;

для завершения вызываем

num1.Terminate();

но имейте в виду что приложение может не вернуть память системе, а например след потом в том же месте будет создан.
но утечки не будет.

[SPLER]

Пепел Феникса, работает превосходно, спасибо. Вопрос решен. Так же благодарю тех, кто принял участие в решении вопроса.