Утечка памяти [Освобождение памяти массива]

[denis76560]

Доброго времени суток уважаемые форумчане, столкнулся со следующей проблемой:
Имею код для распознавания изображений, а в процедуре procedure TForm1.MakeChars;
загружаются в память эталоны изображений, но при закрытии моей программы MadExcept показывает что в программе имеется утечка памяти,
знаю что при закрытии приложения память выделенная под него (приложение) высвобождается, но именно эта утечка портит мне общую картину.
Да и забивать на такие вещи - не кошерно, да и еще правила плохого тона.

Пробовал освобождать память массива так, но, увы не помогло

SetLength(myarray,0);
myarray:=nil;

Буду очень признателен за Ваши советы как в таком случаее освобождать память от загруженных данных из массива myarray.

Вот проблемный участок кода:

procedure TForm1.MakeChars;
var
  i : integer;
  myfile:textfile;
  filepath:string;
begin
 assignfile(myfile,ExtractFilePath(Application.Exename)+'base\kolvo.cfg');
 reset(myfile);
 readln(myfile,kolvo);
 SetLength(myarray,kolvo+1);
 myarray[0].bmp:=TBitmap.Create;

  for i:=1 to kolvo do
  begin
   readln(myfile,myarray[i].ch);
   readln(myfile,filepath);
   myarray[i].bmp:=TBitmap.Create;
   myarray[i].bmp.LoadFromFile(ExtractFilePath(Application.Exename)+'base\'+filepath);
  end;
 closefile(myfile);
end;

Ниже приложу архив с исходником, может кому-то так будет проще суть проблемы.
http://myfiles.pro/uploads/355530178.FORUM.rar

[Аватар]

Для каждого битмапа Free, а потом уже SetLength(myarray,0) или myarray:=nil, это одно и то же

[denis76560]

Спасибо, только что сам допер =))
Не успел отписаться =)

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
begin
  For i:= 0 to kolvo do
   begin
   myarray[i].bmp.Free;
   end;
   end;

[Sibedir]

Если есть TBitmap.Create, то должен быть и TBitmap.Free.

  for i := Low(myarray) to High(myarray) do
    if Assigned (myarray[i].bmp) then
      FreeAndNil (myarray[i].bmp);
  SetLength(myarray,0);

[denis76560]

Да, это я знаю, спасибо большое всем за помощь.