Gleitkomma Problem

[Medium]

1) Einrückung ist zum weinen.
2) Warum überall Functions? Du weist in keiner dieser je ein result zu, und nutzt den nicht vorhandnen Rückgabewert auch nirgends.
3) Haufenweise unnötige globale Variablen
4) Komponentenbenennung auf default lassen erleichtert die Arbeit nicht unbedingt.
5-10) Grundlagentutorials sind mal wieder der beste Tipp den man dir geben kann.

Delphi-Quellcode:

if a>21 then   //gleitkomma problem

if a=21 then  gegner

Was soll das werden z.B.?