Zahlen mit Komma vergleichen

[turbocounter]

Hallo,
ich habe diese Funktion:

Delphi-Quellcode:

function praemientester(summ1,summ2:double):boolean;
var summe: double;
begin
  summe:=summ1 + summ2;
  If (summe = 0.11) or (summe = 0.33) or (summe = 0.55) or (summe = 0.77) or
     (summe = 0.99)or (summe = 1.11) or (summe = 1.33) or (summe = 1.55) or
     (summe = 1.77) or (summe = 1.99)Then Result:=True
                                   Else Result:=False;

end;

Warum liefert sie nie true zurück? Selbst wenn die Summe 0,11 ist, dann funktioniert das nicht. Liegt das an den Datentypen/Gleitkommadarstellung? Wie ändere ich das oder wie nehme ich nur die Zahlen nach dem Komma und mach dann mit den integer zahlen ne addition. Mit frac() funktionierts nicht, da bleibt die 0 stehen.

Danke
Counter