Gauge

[Meflin]

Delphi-Quellcode:

Gauge1.maxvalue := 100;
gauge1.progress := gauge1.progress + 1;