No entiendo porque quieres hacer eso. Al eliminar el formulario con Free también es eliminado de la lista Forms, ya no esta en la lista. De echo si quieres eliminar todos los formularios la forma correcta seria empezar por el ultimo, de lo contrario te dará error, es decir:
Código Delphi
[-]
For i:=screen.FormCount-1 downto 0 Do
begin
If screen.Forms[i].name=forma Then
begin
screen.Forms[i].Free;
end;
end;