Listar todos los nombres de los Formularios de mi aplicacion

[roman]

Empezado por dec

Nótese que prefiero además almacenar la "longitud" del bucle en una variable, será por leer a Francisco Charte.

Supongo que Francisco Charte no se ha percatado de que el compilador de delphi evalúa el límite final sólo una vez al comienzo del ciclo for y no en cada vuelta

Pruébenlo:

Código Delphi [-]
function Limit(): Integer;
begin
  ShowMessage('Estableciendo el límite');
  Result := 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;

begin
  for I := 1 to Limit() do
    ShowMessage(Format('Vuelta %d', [i]));
end;

// Saludos