Нужна помощь по Form-мам Delphi xe7

[Plankin]

Не то малость.
Грубо надо где-то так:

var Name: string;   /// Название формы

for i:=0 to 3 do
  begin
   Name := Memo1.Lines[i];
  Screen.Forms[Name].Caption:='Чему-то';
 end;

[min@y™]

А вот так?

var
  Name: string;
  i, FormIndex: Integer;
begin
  for i:= 0 to Screen.FormCount - 1 do do
    begin
      FormIndex:= Memo1.Lines.IndexOf(Screen.Forms[i].Name);
      if FormIndex <> -1
        then Screen.Forms[FormIndex].Caption:='Чему-то';
    end;
end;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!

К тому же вопрос сильно ассоциируется с сагой про x-y-z.

[Plankin]

А если формы будут называться не Form1,Form2, т.д. , грубо Start, Finish, Privet и т. д. без идексов?
Сильно, не ругайтесь. На програмисток не кончал.

[Alex11223]

Form1 это не индекс.

[Stilet]

если формы будут называться не Form1,Form2, т.д. , грубо Start, Finish, Privet и т. д. без идексов?

Тогда пиши "пропало" )
Вообще ты можешь обьяснить что ты делаешь? Зачем это все нужно?

Сильно, не ругайтесь. На програмисток не кончал.

А просто на девушек?

[Plankin]

Заработало, большое спасибо, больше мучать не буду!!!!!!!!

Бывало, мне уже 36, и детей 3-е....

[Stilet]

детей 3-е.

Мои поздравления )

Заработало

И еще раз поздравления )

[Plankin]

И еще раз спасибо.

[min@y™]

Заработало, большое спасибо

покажи, как сделал-то.

[Plankin]

Там конечно надо еще разбираться, что к чему. А так лови

https://yadi.sk/d/cqU8i6HofZutt