Probleme beim Bruchrechner mit dem Kürzen!

[Elko]

AAAAlso:
ich hab mal folgendes geschrieben:

Delphi-Quellcode:

var ganzzahlig, rest : integer;

procedure KlGemTeiler(a,b : integer);
begin
ganzzahlig := a div b;
rest := a-ganzzahlig*b;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b : integer;
begin
a := StrToInt(edit1.Text);
b := StrToInt(edit2.Text);
KlGemTeiler(a,b);
Label1.Caption := IntToStr(ganzzahlig);
Label2.Caption := IntToStr(rest);
Label3.Caption := IntToStr(b);
end;

So, jetzt müsste es aber passen

[Edit] Es reicht ja ne procedure... [/Edit]