[dec]

Hola,

Falta el "menos uno" Neftalí, so pena de enfrentarnos a un "Index out of bounds".

Código Delphi [-]
var
  i, len: integer;
begin
  len := Screen.FormCount-1;
  for i := 0 to len do begin
    ShowMessage(Screen.Forms[i].Name);
  end;
end;

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