So würde ich es machen:
Delphi-Quellcode:
for i:=0 to 10 do
begin
if StrToInt(Form1.Anzeige.Items[pl0]) mod 10)=0 then
Counter[i] := 0
else
Inc(Counter[i]) ;
end;
Zur Info: mod ist der Rest einer Division. also 10 mod 10 ergibt 0, 11 mod 10 ergibt 1 usw.