Zitat:
Vielleicht bekommt ein Interessierter heraus, wo die Schutzverletzung ausgelöst wird, mir ist das bislang nicht gelunge
Debuggen?
Und wenn das wirklich mal nichts hilft, dann hilft Logging (an wichtigen Stellen wird geloggt und nach der letzten und dem nächsten Logeintrag liegt der Fehler)
Wozu ist eigentlich das bremsende und völlig unnötige
Application.ProcessMessages;
?
Sicher daß ein Nummerischer/mathematischer Wert sich gut eignet, für einen binären Vergleich?
Maske := Mask DIV Track_Color.Max * Track_Color.Position;
Das Rechenergebnis ist garantiert meistens nicht geeignet für sowas.
Und warum schreibst du in einer Konstante rum?
Auch wenn es nicht unbedingt falsch ist, aber IF erwartet einen Booleanischen Wert und dein Result ebenso ... warum nicht kombinieren?
Delphi-Quellcode:
IF Fehler > (UpDown_Sensi.Position * 10) THEN
Result := FALSE ELSE
Result := TRUE;
Result := Fehler <= UpDown_Sensi.Position * 10;