CreateThread непонятки с утечкой памяти

[fucil]

Делаю вот так и все ок, поток завершается, ресурсы освобождаются, до запуска 800кб, после запуска потока допустим 860кб, после завершения потока 800кб. Все четко:

var //глобал
   HandlThread:Cardinal;
   idThread :Cardinal;
   gogo:boolean;

procedure MyProc;
begin
while gogo do begin
  Writeln('thread work');
end;
EndThread(HandlThread); // особое внимание вот тут !
end;

procedure Start;
begin
gogo:=true;
HandlThread:= CreateThread(nil, 0, @MyProc, nil, 0, idThread);
//можно и BeginThread суть не поменяет
end;

procedure Stop;
begin
  gogo:= false;
end;

Но если создать допустим 5 или 20 или 200 потоков неважно то происходит утечка памяти допустим!
до запуска 800кб, после запуска потоков допустим 2860кб, после завершения потоков 1200кб.
Потоки мрут, память снимается но не вся.
Делаю вот так, по идее все должно быть норм, но увы(( В чем подвох ???

var //глобал
   HandlThread:array [0..500] of Cardinal;
   idThread :Cardinal;
   num:integer;

procedure MyProc;
begin
while gogo do begin
  Writeln('thread work');
end;
//EndThread(0); пишут что помогает но мне не помогло !
end;

procedure Start(znum:integer);
var
i:integer;
begin
num:=znum;
for I := 0 to num do
HandlThread[i] := CreateThread(nil, 0, @MyProc, nil, 0, idThread);
//можно и BeginThread суть не поменяет
end;

procedure Stop;
var
i:integer;
begin
  gogo:= false; //тут можно и закоментить ничего не изменится.
for I := 0 to num do
  EndThread(HandlThread[i]);
end;

[EUGY]

CloseHandle ?

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

хм, во первых функция потока выглядит так:

function ThreadFunc(T:Pointer):Integer;stdcall;

во вторых достаточно из нее выйти чтоб поток сам завершился.
далее закрывайте хендлы.

[fucil]

Попробовал так результат такой же как и раньше (жрет память)!

var //глобал
   HandlThread:array [0..500] of Cardinal;
   idThread :Cardinal;
   num:integer;

procedure MyProc(T:Pointer):Integer;stdcall;
begin
while gogo do begin
  Writeln('thread work');
end;
//EndThread(0); пишут что помогает но мне не помогло !
end;

procedure Start(znum:integer);
var
i:integer;
begin
num:=znum;
for I := 0 to num do
HandlThread[i] := BeginThread(nil, 0, @MyProc, nil, 0, idThread); /.сменил на BeginThread все же он корректнее 
end;

procedure Stop;
var
i:integer;
begin
  gogo:= false; 
  sleep(500);
for I := 0 to num do
  CloseHandle(HandlThread[i]);
end;