Добавление ООП в Програму

[Garmata]

Привет Всем история такова:
Задали делать проект. Я сделал, все работало корректно.
Принес преподавателю и тот решил усложнить мне жизнь.
Сказал добавить ООП в проект. Пробую пробую ничего не получается.
То программа не видит переменных с класса то еще что нибуть ...
Люди добрые знаю что вам это 5 минут - помогите добавить простейший класс с переменными и функциями

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, TeEngine, TeeProcs, Chart, Series;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Chart1: TChart;
    Series2: TLineSeries;
    Series3: TLineSeries;
    Series1: TLineSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Gd, Gm , Um, Ts: Integer;
  R,L,Q,I,DI,t,Om,Tmax,T0,Tm,d,dt,UR,UC,UL : real;
  const
EDS = 1.0  {Bольти};
Umax = 2.0 {Bольти };
C = 0.000001   {Фаради};


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
L:=StrToFloat(edit1.Text);
R:=StrToFloat(edit2.Text);;
T0:=StrToFloat(edit3.Text);
d:=StrToFloat(edit4.Text);

Om:=1/sqrt(L*C);     {цикліч. частота LC-контура}
dt:=d/Om;            {крок}
Tmax:=2*pi*T0/Om;    {часовий відрізок проведення розрахунків}

                     {задання початкових значень}
t:=0;
Q:=0;
I:=0;

chart1.Series[0].Clear;
chart1.Series[1].Clear;
chart1.Series[2].Clear;               {розвязок рівнянь методом ейлера}
while t <= Tmax do
begin
DI:=-(I*R*C*Om + Q - EDS*C);
I:=I+DI*d;
Q:=Q+I*d;
UR:=I*R*Om;
UC:=Q/C;
UL:=L*DI*Om*Om;
t:=t+dt;
chart1.Series[0].AddXY(t,UR);
chart1.Series[1].AddXY(t,UC);
chart1.Series[2].AddXY(t,UL);
end;


end;
end.

___________
вы тег забыли закрыть. после кода должен быть завершающих тег [/CODE]
модератор.