möchte modulo (Teilen) function neu programmieren

[Coder]

Hallo
Ich wollte die "mod" function nachprogrammieren..

aber irgendwie kommen da falsche Ergebnisse.

Delphi-Quellcode:

function mody(Zahl :longint; Teiler :longint): longint;
var  fix3 : longint;
runden1 ,runden2,  Fix2,Fix1, erst: real;
begin
erst := Zahl / Teiler; 
Fix1 := (erst - round(erst));
fix2 := (Fix1 * Teiler);
runden1 := fix2 - round(fix2);
runden2 := runden1 * 10;
If runden2 > 5 Then  Fix3 := round(fix2) + 1;
If runden2 <= 5 Then  Fix3 := round(fix2);
result := Fix3;
end;

----------

habt Ihr eine Idee woran das liegt?

oder gibt es evtl source zu so einer Funktion?

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen. Mfg, Daniel[/edit]