Odwołanie do wszystkich form

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

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

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;

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

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