Не работает нужным способом Timer

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Memo1: TMemo;
    Edit2: TEdit;
    Label4: TLabel;
    Memo2: TMemo;
    Label5: TLabel;
    Timer1: TTimer;
    Label6: TLabel;
    Button2: TButton;
    Button3: TButton;
    Timer2: TTimer;
    Label7: TLabel;
 
 
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
 
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  MainMass,SecondaryMass:array of integer;
  Vremya:integer=0;
 
 
implementation
 
{$R *.dfm}
 
  /////////////////////////////////////////////////////////
 
 
 procedure PuzirekV(a:array of integer;count:integer); //пузырёк возрастание
 var i,j,zap:integer;
 newmass:array of integer;
 
 begin
 SetLength(newmass,count);
 Form1.Timer2.Enabled:=true;
 for i := 0 to count do
begin
  newmass[i]:=a[i];
end;
  Form1.Memo1.Lines.Clear;
   for i := 1 to count do
        for j := 0 to (count-i) do
            if (newmass[j] > newmass[j+1]) then begin
               zap := newmass[j];
               newmass[j] := newmass[j+1];
                newmass[j+1] := zap;
                //Vremya:=Vremya+1
            end;
            for i := 0 to count do
   begin
 
  Form1.Memo1.Lines.Add(inttostr(newmass[i]));
   end;
 
  Finalize(newmass);
 end;
 
//////////////////////////////////////////////////////////
 
 
 procedure PuzirekN(a:array of integer;count:integer); //пузырёк убывание
 var i,j,zap:integer;
 newmass:array of integer;
 begin
 SetLength(newmass,count);
 for i := 0 to count do
begin
  newmass[i]:=a[i];
end;
  Form1.Memo1.Lines.Clear;
   for i := 1 to count do
        for j := 0 to (count-i) do
            if (newmass[j] < newmass[j+1]) then begin
               zap := newmass[j];
               newmass[j] := newmass[j+1];
                newmass[j+1] := zap
            end;
            for i := 0 to count do
   begin
  Form1.Memo1.Lines.Add(inttostr(newmass[i]));
   end;
  Finalize(newmass);
 end;
 
 ///////////////////////////////////////////////////////////////
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
//Vremya:=0;
 
Form1.Color:=ClRed;
Memo1.Lines.Clear;
Memo2.Lines.Clear;
 
 
 
 
 if (MainMass=nil) then     //создание главного и второстепенного массива
  begin
SetLength(MainMass,strtoint(Edit1.Text));
SetLength(SecondaryMass,strtoint(Edit1.Text));
for i := 0 to (strtoint(Edit1.Text)-1) do
begin
  MainMass[i]:=random(strtoint(Edit2.Text));
  Memo1.Lines.Add(inttostr(MainMass[i]));
end;
for i := 0 to (strtoint(Edit1.Text)-1) do
begin
  SecondaryMass[i]:=MainMass[i];
end;
Memo1.Lines.Add('Главный массив создан') ;
Edit1.Enabled:=false
  end;
 
  //выборка сортировок
 
 
  if (Combobox1.itemindex=1) and (Combobox2.itemindex=1) then
  begin
 
 
    PuzirekV(SecondaryMass,strtoint(Edit1.Text)-1);
 
 
  end;
 
  if (Combobox1.itemindex=2) and (Combobox2.itemindex=1) then
  begin
 
    PuzirekN(SecondaryMass,strtoint(Edit1.Text)-1);
 
  end;
 
 
 
//последние действия
Form1.Color:=ClGreen;
 Memo2.Lines.Add('Размер : ');
 Memo2.Lines.Add(edit1.text);
  Memo2.Lines.Add('Рандом : ');
 Memo2.Lines.Add(edit2.text);
  Memo2.Lines.Add('Фильтр : ');
 Memo2.Lines.Add(Combobox1.Items.Strings[Combobox1.itemindex]);
  Memo2.Lines.Add('Способ : ');
 Memo2.Lines.Add(Combobox2.Items.Strings[Combobox2.itemindex]);
 
 
end;
 
 
////////////////////////////////////////////////////////////////
 
 
procedure TForm1.Button2Click(Sender: TObject); //создание нового главного массива
begin
Memo1.Lines.Clear;
Edit1.Text:='';
 Edit1.Enabled:=true;
 Finalize(MainMass);
 Finalize(SecondaryMass);
end;
 
 ///////////////////////////////////////////
 
  procedure TForm1.Button3Click(Sender: TObject);
  var i:integer;
begin
Memo1.Lines.Clear;
 for i := 0 to (strtoint(Edit1.Text)-1) do
begin
  Memo1.Lines.Add(inttostr(MainMass[i]));
end;
end;
 
/////////////////////////////////////////////////////////////////
 
 
 
 
 
 
procedure TForm1.FormDestroy(Sender: TObject);  //удаление динамических массивов
begin
if MainMass<>nil then
Finalize(MainMass);
if SecondaryMass<>nil then
Finalize(SecondaryMass);
 
end;
 
 ////////////////////////////////////////////////////
 
 procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (Edit1.Text<>'') and (Edit2.Text<>'') and (Combobox1.ItemIndex<>0) and (Combobox2.ItemIndex<>0) then
  begin
Button1.Enabled:=true;
 
  end
else begin
 Button1.Enabled:=false;
 
end;
if MainMass<>nil  then
 
Button3.Enabled:=true
else
Button3.Enabled:=false
end;
 
/////////////////////////////////////////////
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 
    Label7.Caption:='0'+inttostr(strtoint(Label7.Caption)+1);
    if Label7.Caption='09' then
    Timer2.Enabled:=false
 
 
  end;
 
 
 
///////////////////////////////////////////////
 
 
 
end.