Проблемы с inheritage(Delphi)

[alexchromets]

Не запускается программа. Скорее всего из-за того, что класс tester надо вызывать через inheritage.
Подскажите, что не так.

PHP код:

 unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,l2_v7, StdCtrls, ExtCtrls;
 
type
  TTester = class (TObject)
  public
    perem: string;
    procedure metod1;
  end;
 
  TForm1 = class (TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Image1: TImage;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;
 
var
  Form1: TForm1;
  tester: TTester;
 
implementation
 
{$R *.dfm}
 
{
*********************************** TTester ************************************
}
procedure TTester.metod1;
begin
  //2 - отрицательная степень
  input(1,1,-2);
  try
    perem:='отрицательная степень - ok';
  except
    perem:='отрицательная степень - failed';
  end;//2
end;
 
{
************************************ TForm1 ************************************
}
procedure TForm1.Button1Click(Sender: TObject);
begin
  tester.metod1;
  memo1.Lines.Add(tester.perem);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  //1 - отрицательный корень
  input(-1,1,1);
  try
    calculate;
    memo1.Lines.Add('отрицательный корень - ok');
  except
    memo1.Lines.Add('отрицательный корень - ok');
  end;//1
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
    //3 - деление на ноль
    input(1,1,1);
    try
      calculate;
      memo1.Lines.Add('деление на ноль - ok');
    except
      memo1.Lines.Add('деление на ноль - failed');
  end;//3
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
    //4 - переполнение
    input(10,20,10);
    try
      calculate;
      memo1.Lines.Add('переполнение - ok');
    except
      memo1.Lines.Add('переполнение - failed');
  end;//4
end;
  tester.Create;
  tester.metod1;
end. 


Вот код подключаемого модуля:

PHP код:

unit l2_v7;
 
interface
uses math;
 
var a,p,l,i:double;
 
  procedure input(a_,p_,i_:double);
  procedure calculate();
 
implementation
  procedure input(a_,p_,i_:double);
  begin
    a:=a_;p:=p_;i:=i_;
  end;
 
  procedure calculate();
  begin
    l:=(sqrt(2*a)*(p-power(a,i)))/power((p-a),i+1);
  end;
end. 


[GreenWizard]

при создание формы создаём Tester (Tester := TTester.Create), а при выходе уничтожаем... через OnCreate\OnDestroy или Create\Destroy или выносим Тестер в модуль др. и в initialization\finalization (предпочтительнее, если глобальный сингелтон т.е. один объект на всю программу)