Wert für alle Objekte gleichen Typs ändern?

[xineohp]

moin,

folgendes sollte funktionieren:

Delphi-Quellcode:

For i:=0 to Form1.ComponentCount-1 do
  If Form1.Components[i] is TSpinEdit 
    then TSpinedit(Form1.Components[i]).value := 0;