Danke, KLS und Robert! So ist das Programm nur noch mehr 1/3 so groß...
Ja, ich weiß dass es solche Fonts gibts, nur dann hätt ich ja nix zu tun...
Beispielanwenung im 1. Post.
EDIT:
In der Procedure SetValue würde noch das reingehören:
Delphi-Quellcode:
if (Value < 0) or (Value > 9) then
Value := 0;
Das ist doch korrekt so, oder?
Delphi gibt mir immer folgende Warnung aus:
Code:
[Warnung] Unit2.pas(82): Der Vergleich ergibt immer Falsch