Probleme beim Bruchrechner mit dem Kürzen!

[davidgimbel]

Doch schon, aber ich kriege es einfach nicht hin, das bei mir einzubauen...
habe es so probiert:

Delphi-Quellcode:

implementation

{$R *.dfm}

var ganzzahlig, rest : integer;

function KlGemTeiler(a3,b3 : integer) : integer;
begin
ganzzahlig := a3 div b3;
rest := a3-ganzzahlig*b3;
end; 



procedure TForm3.Button1Click(Sender: TObject);
var
a,b,c,d,a1,b1,c1,d1,a2,b2,c2,d2,a3,b3:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
d:=c*b;

a1:=strtoint(edit6.text);
b1:=strtoint(edit7.text);
c1:=strtoint(edit5.text);
d1:=c1*b1;

a2:=d*b1;
b2:=b*b1;
c2:=d1*b;
d2:=b1*b;

a3:=a2+c2;
b3:=d2;

KlGemTeiler(a3,b3);
edit8.Text:= IntToStr(ganzzahlig);
edit9.Text:= IntToStr(rest);
edit10.Text:= IntToStr(b3);

end;