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.?
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)