Hallo,
so erreichst Du garantiert jedes Label auf beliebigen Panels:
Delphi-Quellcode:
procedure LabelsOnPanel(Pan: TPanel);
var
i: integer;
begin
for i := 0 to Pan.ControlCount - 1 do
if Pan.Controls[i] is TLabel then (Pan.Controls[i] as TLabel).Caption :=
IntToStr(i);
end;
Gruß
Volker