Создание интерфейса программы через модуль (Калькулятор смешанных дробей)

uses FormsABC;
 
 
var 
  a := new RealField('a:');
  a1 := new RealField('a1:');
  f1 := new FlowBreak;
  b := new RealField('b:');
  b1 := new RealField('b1:');
  f2 := new FlowBreak;
  c := new IntegerField('с:');
 c1 := new IntegerField('c1:');
 f4 := new FlowBreak;
 tl := new TextLabel('Действие: ');
  f5 := new FlowBreak;
  cb := new ComboBox;
  f6 := new FlowBreak(50);
  s1 := new Space(20);
  ok := new Button('Вычислить');
  tb: TextBox;
begin
  MainForm.Title := 'Калькулятор смешанных дробей';
  MainForm.SetSize(500,350);
  MainForm.CenterOnScreen;
  mainPanel.Dock := DockStyle.Left;
  mainPanel.Width := 250;
 
  ParentControl := MainForm;
  tb := new TextBox;
  tb.Dock := DockStyle.Fill;
  cb.Items.Add('Сложение');
  cb.Items.Add('Вычитание');
  cb.Items.Add('Умножение');
  cb.Items.Add('Деление');
end.

const
n1=200;
type
 tArr = array [1..n1] of integer;
var
provcel,rezZn,rezCh, n,i: integer;
 
   celie,znam,chis:tArr;
 
 
function NOD(a, b: integer): integer;
begin
  while (a <> 0) and (b <> 0) do
    if a >= b then
      a := a mod b
    else
      b := b mod a;
  if a <> 0 then NOD := a
  else NOD := b;    
end;
 
procedure pereymnojenie(a, b, c, a1, b1, c1: integer);
var
  ch, zn, z: integer;
begin
   ch := (a * c + b) * (a1 * c1 + b1);
  zn := c * c1;
  z := NOD(ch, zn);
  rezch:= ch div z;
  rezzn:=zn div z;
end;
 
procedure slojenij(a, b, c, a1, b1, c1: integer);
var
  ch, zn, z: integer;
begin
  ch :=((a * c + b)*c1+c*(a1 * c1 + b1));
  zn := c * c1;
  z := NOD(ch, zn);
  rezch:= ch div z;
  rezzn:=zn div z;
end;
procedure delenij(a, b, c, a1, b1, c1: integer);
var
  ch, zn, z,vrem: integer;
begin
  b:=a * c + b;
  b1:=a1 * c1 + b1;
  vrem:=c1;
  c1:=b1;
  b1:=vrem;
  ch :=b*b1;
  zn := c * c1;
  z := NOD(ch, zn);
  rezch:= ch div z;
  rezzn:=zn div z;
end;
 
procedure vbIchitanie(a, b, c, a1, b1, c1: integer);
var
  ch, zn, z: integer;
begin
if a<0 then b:=(a*c-b) else b:=(a*c+b)
if a1<0 then b1:=(a1*c1-b1) else b1:=(a1*c1+b1)
  ch :=(b*c1-c*b1);
  zn := c * c1;
  z := NOD(ch, zn);
  rezch:= ch div z;
  rezzn:=zn div z;
end;