Многопоточность WinAPI, TStringList, Access Violation

[Vadik(R)]

Решил сделать для себя тестовое многопоточное приложение в Delphi 7, да столкнулся с проблемой Access Violation, если в потоках есть TStringList и ему необходимо чуток памяти.

Вот код:

{$MAXSTACKSIZE $0E000000}
 
program MultiThreads;
 
{$APPTYPE CONSOLE}
 
uses
  Classes, SysUtils, Windows;
 
var
  i: Integer;
  ThreadId: Cardinal;
  Threads: Array [1..100] of THandle;
 
function MyThread(param: Pointer): Cardinal; stdcall;
var
  Content: TStringList;
  i: Integer;
begin
  Content := TStringList.Create;
  for i := 1 to 10000 do
  Content.Add('asdxcvajdaslkdjlasjdlkasjdlkasjdlkasjdljsaldjaslkdj');
  Content.Free;
  MyThread := 0;
end;
 
begin
  for i := 1 to 5 do
  begin
    Threads[i] := CreateThread(nil, 10240000, @MyThread, nil, 0, ThreadId);
  end;
  WaitForMultipleObjects(5, @Threads, True, INFINITE);
  for i := 1 to 5 do
  begin
    CloseHandle(Threads[i]);
  end;
end.

Пытался поиграться со вторым параметром при создании потока (изначально был 0, поставил в 10240000) и решил установить
{$MAXSTACKSIZE $0E000000} в надежде, что как-то поможет, но это никак не помогло, Access Violation всё равно появляется. Скажите, в чём может быть дело?

[Vadik(R)]

Нагуглил, стоить написать:

IsMultiThread := True;

Может кому пригодится