Ich würde das Bitmap, dass du in
procedure TGfxDigits.Paint
verwendest, nicht jedesmal neu erzeugen und freigeben.
Die Paint-Methode kann sehr häufig aufgerufen werden und erzeugt so "Stress" für den Memory-Manager von Delphi als auch für Windows (
Handle erzeugen/zerstören).
PS:
Delphi-Quellcode:
procedure TGfxDigits.SetValue(const Value: Integer);
begin
if Value<>FValue then // nur wenn sich der Wert ändert etwas tun
begin
FValue := Value;
Paint;
end;
end;