Label1 bis 80?

[QuickAndDirty]

Nur mal so um die Namen zu prüfen.

Delphi-Quellcode:

var i: integer;
    s: String;
Begin
  For i := 0 To pred(Componentcount) do
    if Components[i] is Tlabel then
      s := s + Components[i].name;
  Showmessage(s);
end;