Eine Möglichkeit wäre sowas:
Delphi-Quellcode:
var
i, j: Integer;
begin
j := 0;
for i := 0 to ControlCount - 1 do
if (Controls[i] is TLabel) and (Controls[i].Tag = 1) then
begin
inc(j);
TLabel(Controls[i]).Caption := IntToStr(j);
end;
end;
Die Idee dabei ist alle Controls auf der Form durchzulaufen die zur gleichen "Gruppe" gehören.
Dazu setzt man die Tag-Eigenschaft der Labels im Formular-Designer auf eine gemeinsame Zahl so daß eventuell andere Labels, die einen nicht interessieren, ausgeschlossen werden können.
Der Test
Controls[i] is TLabel
sichert zu, daß man nur Labels betrachtet.