Многопоточность 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;

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