Не удаляются динамически созданные объекты TImage

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Buttons, Menus;
 
type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Button3: TButton;
    RichEdit2: TRichEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    RichEdit3: TRichEdit;
    Button4: TButton;
    ComboBox1: TComboBox;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
          private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 { p: tpoint;
  fname: string;
  i,k, st,   // ê îòñëåæèâàåò çíà÷åíèå i;
  LeftPosMarker,
  TopPosMarker,
  MarkerHeight,
  LinesKol: integer;
  Marker, Block : array of TImage;
  Key: TLabel;}
 
implementation
 
uses Unit2, Unit3, Unit4, Unit5;
 
{$R *.dfm}
var
  BlockKol,
  LeftPosBlock,
  TopPosBlock,
  BlockHeight: integer;
  p: tpoint;
  fname: string;
  i,k, st,   // ê îòñëåæèâàåò çíà÷åíèå i;
  LeftPosMarker,
  TopPosMarker,
  MarkerHeight,
  LinesKol: integer;
  Marker, Block : array of TImage;
  Key: TLabel;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile ('prog_text\stackcreate.rtf');
LinesKol:= richedit1.Lines.Count;
i:=0;
button2.Enabled:=true;
button1.Enabled:=false;
BlockKol:=0;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.Clear;
RichEdit2.Clear;
Label1.Caption:='';
i:=0;
st:=0;
BlockKol:=0;
LeftPosMarker:=8;
TopPosMarker:=56;
MarkerHeight:=0;
 
LeftPosBlock:=688;
TopPosBlock:=512;
BlockHeight:=0;
 
button1.Enabled:=true;
button2.Enabled:=false;
button3.Enabled:=false;
N1.Enabled:=False;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
//óñòàíîâêà ðàçìåðíîñòåé äèíàìè÷åñêèõ ìàññèâîâ
SetLength(Marker,LinesKol);
SetLength(Block,LinesKol);
 
    if i< richedit1.Lines.Count   // ïîêà êîëè÷åñòâî íàæàòèé íà êíîïêó íå ðàâíî êîëè÷åñòâó ñòðîê
 
       then
        // âûäåëåíèå òåêóùåé ñòðîêè êðàñíûì
         p.x:=0;
         p.y:=i;
         Richedit1.CaretPos:=p;
         Richedit1.SelLength:=Length(richedit1.Lines[i]);
         Richedit1.SelAttributes.Color := clRed;
         //âûâîä ïîäñêàçîê
         {fname:='hint_text\'+IntTostr(i)+'.txt';
         RichEdit2.Lines.LoadFromFile (fname); }
 
         // ñîçäàíèå ìàðêåðà
           Marker[i]:=TImage.Create(Self);
           with Marker[i] do
                          begin
                             Parent:=Form1;
                             Picture.LoadFromFile('Image\Run.bmp');
                             AutoSize:=True;
                             Top := TopPosMarker+MarkerHeight;
                             Left := LeftPosMarker;
                           end;
 
 
    // ñíÿòèå âûäåëåíèÿ ñ ïðåäûäóùåé ñòðîêè 
    if i>0
        then
        begin
         p.x:=0;
         p.y:=i-1;
         Richedit1.CaretPos:=p;
         Richedit1.SelLength:=Length(richedit1.Lines[i-1]);
         Richedit1.SelAttributes.Color := clBlack;
         Marker[i-1].Free;
        end;
 
  // ñîçäàíèå áëîêîâ ñòåêà
    if (i>5) and (i<20)  then
       begin
          Block[st]:=TImage.Create(Self);
           with Block[st] do
                          begin
                             Parent:=Form1;
                             if i=6 then
 
                                 Picture.LoadFromFile('Image\Stack\Nil_Block.bmp')
                                    else
                                 Picture.LoadFromFile('Image\Stack\Block.bmp');
 
 
                             AutoSize:=True;
                             Top := TopPosBlock-BlockHeight;
                             Left := LeftPosBlock;
                           end;
      BlockHeight:=BlockHeight+74;
      BlockKol:=BlockKol+1;
            end;
 
 
     label2.caption:=InttoStr(blockkol);;
   // ïðîêðóòêà ñ÷åò÷èêîâ
 
    i:=i+1;
    k:=i-1;
    st:=st+1;
 
    //êîððåêòèðîâêà ïîçèöèè ìàðêåðà
    if i>14 then  MarkerHeight:=MarkerHeight+18 else
    MarkerHeight:=MarkerHeight+17;
 
    //âûâîä íîìåðà òåêóùåé ñòðîêè
    Label1.Caption:='Line - '+InttoStr(i);
 
    // Åñëè äîñòèãíóò êîíåö
    if i= richedit1.Lines.Count then ShowMessage('Compile Finished');
 
//Reset àêòèâèðîâàòü
button3.Enabled:=true;
 
 
 
end;
 
{************************************************************
**********************R E S E T*****************************
*************************************************************}
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 
//óäàëåíèå ìàðêåðà
Marker[k].Free;
 
          //ñíÿòèå âûäåëåíèÿ ñòðîêè
         p.x:=0;
         p.y:=k;
         Richedit1.CaretPos:=p;
         Richedit1.SelLength:=Length(richedit1.Lines[k]);
         Richedit1.SelAttributes.Color := clBlack;
 
//î÷èñòêà ïðîãðààììíîãî êîäà
RichEdit1.Clear;
 
//Ñáðîñ ñ÷åò÷èêà ñòðîê
Label1.Caption:='';
 
//ñáðîñ çíà÷åíèé ñ÷åò÷èêîâ
i:=0;
st:=0;
 
//óäàëåíèå áëîêîâ ñòåêà
for i:=0 to BlockKol do
   Block[i].Free;
 
// óñòàíîâêà ïåðâîíà÷àëüíûõ çíà÷åíèé ïîçèöèè ìàðêåðà
LeftPosMarker:=8;
TopPosMarker:=56;
MarkerHeight:=0;
 
// óñòàíîâêà ïåðâîíà÷àëüíûõ çíà÷åíèé ïîçèöèè áëîêà ñòåêà
LeftPosBlock:=688;
TopPosBlock:=512;
BlockHeight:=0;
 
//óïðàâëåíèå äîñòóïîì êíîïîê
button1.Enabled:=true;
button2.Enabled:=false;
button3.Enabled:=false;
 
label3.Caption:=Inttostr(blockkol);
end;
 
 
procedure TForm1.N1Click(Sender: TObject);
begin
Form1.Show;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
Form2.Show;
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
Form3.Show;
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
Form1.Close;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
//RichEdit3.Lines[0].add:='asdasd '
end;
 
procedure TForm1.N4Click(Sender: TObject);
begin
WinExec('hh.exe Help\help.chm',SW_SHOW);
end;
 
procedure TForm1.N10Click(Sender: TObject);
begin
Form5.Show;
end;
 
end.

Block[st]:=TImage.Create(Self);

if i< Synedit1.Lines.Count  // пока количество нажатий на кнопку не равно количеству строк
 
       then
        // выделение текущей строки красным
 
//  synedit1.SelectedColor.Background:=clred;
//  synedit1.SelectedColor.Foreground:=clblue;
  x1:=pos(SynEdit1.Lines[i],SynEdit1.Text)-1;
  x2:=pos(SynEdit1.Lines[i],SynEdit1.Text)+length(SynEdit1.Lines[i]);