Rechner machen mit Brüche

[OwNy]

Hallo!

wie schon einmal gesagt bin ich neu und solangsam vertraut, mein bruder hilft mir auch mal ab und zu aber dies weis er nicht: wie bekomme ich bei einer Division das ergebniss als bruch raus?
wenn es geht, wie?

bisher hab ich das ganze so:

Delphi-Quellcode:

procedure TForm1.Rechnen2Click(Sender: TObject);

VAR
a, b, e : REAL;

begin
a:= strtofloat (TFa.text);
b:= strtofloat (TFb.text);

e:= a/b;
TFe.Text := floattostr (e);

showmessage ('kannste haben :>');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

nur kommt da immer eine dezimal zahl raus!
ich möchte nun ein neuen button und labels machen (das krieg ich hin ) wo man die dezimal zahl eingibt und der "rechner" sie zu einem bruch umwandelt.
wäre cool wenn ihr mir erklären würdet wies geht.

entweder per replys oder per icq: 339188648
danke und mfg OwNy

edit.: hier der momentane rechner: Klick mich