Программа для сложения дробных чисел

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
type час=record
      up:integer;
      down:1..maxint
     end;
var
  a1,a2,b1,b2 :integer;
  c,a,b:час;
procedure add(a1,b1:час; var c1:час);
  var
    i1:integer;
  begin
    a1.up:=a1.up*b1.down;
    b1.up:=b1.up*a1.down;
    c1.up:=a1.up+b1.up;
    c1.down:=b1.down*a1.down;
    for i1 := 2 to (c1.up div 2) do
    while (c1.up mod i1=0)and(c1.down mod i1=0) do begin
      c1.up:=c1.up div i1;
      c1.down:=c1.down div i1;
    end;
  end;
begin
  a.up:=StrToInt(Edit1.Text);
  a.down:=StrToInt(Edit2.Text);
  b.up:=StrToInt(Edit3.Text);
  b.down:=StrToInt(Edit4.Text);
  add(a,b,c);
  Edit5.Text:=IntToStr(c.up);
  Edit6.Text:=IntToStr(c.down);
  end;
end.

i:=2;
while(i<=a)and(i<=b) do
 begin
  if(a mod i=0)and(b mod i=0) then
   begin
    a:=a div i;
    b:=b div i;
   end
  else i:=i+1
 end;