Labels con el final de nombre distinto

[[seoane]]

Utiliza algo como esto:

Código Delphi [-]
var
  i: integer;
  C: TComponent;
begin
  for i:= 1  to 10 do
  begin
    C:= FindComponent('Label'+IntTostr(i));
    if (C <> nil) and (C is TLabel) then
      TLabel(C).Caption:= 'A';
  end;
end;