Odwołanie do wszystkich form

Jak odwołać się do wszystkich form za pomocą pętli for? Chodzi o coś w stylu

  for i := 0 to ComponentCount-1 do
    begin
        polecenia...;
    end;

tylko że zamiast komponentów żeby były formy naszej aplikacji

No jak to jak?

var
 i :Integer;
begin
    for i :=0 to ComponentCount -1 do
    if Components[i] is TForm then
      TForm(Components[i]).Caption :='Mój soft';

Chodzi mi o coś w stylu

for i := 0 to liczbaform do begin
    for n := o to componentcount-1 do begin
        polecenia...;
    end;
end;

var
 i :Integer;
begin
  for i := 10 downto 1 do TForm(FindComponent('Form' + inttostr(i))).Caption:='Moja forma';
end;

A najlepiej to jakbyś zajrzał w Szukaczkę i na google.

W skrypcie:

 i :Integer;
begin
  for i := 1 downto 10 do TForm(FindComponent('Form' + inttostr(i))).Caption:='Moja forma';
end;

jest błąd. Nie może przecież być 1 downto 10 !!!
Czy forma to też komponent? Ja chcę zrobić with do każdej formy. Tylko nie wypisywać każdą formę po kolei tylko kod, który się tyczy wszystkich form wstawić do pętli.

Można zrobić

with TForm(findcomponent(nazwa)) do (...)

?? Mi wywala błąd.

Poradziłem sobie w inny sposób. Można zamknąć temat.

a nie

screen.forms[i]

...?