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

[Plankin]

Нужна помощь.
Я только начинаю осваивать программирование, так что звание «чайника» еще не претендую.
Суть проблемы: есть список названий Form, и мне надо взять это название с Мемо, запихнуть его в цикл и поменять какое-нибудь свойство. Например «Top» :=200.
Я понимаю что «FindComponent» нужен для уже созданых на форма компонентов, какую команду написать надо?
Что то типа
FindComponent(Name + ‘.Top’) := 200 – ну это грубо.

nit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2, Unit3, Unit4, Unit5, Unit6;

procedure TForm1.Button1Click(Sender: TObject);
var i :Integer;
begin
for i := 0 to Memo1.Lines.count do
  begin
   ///   Что написать всместо   "FindComponent"
 // FindComponent(Memo1.Lines[i] + '.top') := 200;
  end;


end;

[Sibedir]

тогда уж
FindComponent(Name).Top := 200

[Plankin]

Ошибку выдает.

скрин .

Да и свойство надо поменять у формы, а не на компонентах в ней.


Ссылка на исходник, сюда размер недает вставить.

https://yadi.sk/d/y17ySCOSfZdEL

[Stilet]

Потому что нужно приведение типов:

TForm1(FindComponent(...)).Top:=...;

Но ты поосторожнее с такими методами.

[Plankin]

Пробывал непрокатовает.

[Plankin]

Попробую объяснить подробней. На Form1 лежит Memo. В нем списков названий форм
Form1
Form2
Form3
И т.д
Создан цикл
For i:=0 to 3 do
Begin
Сюда надо написать, что бы бралось название формы из линии Memo и форме менялось какое-нибудь свойство, например Top, или .Captoin := ‘Привет из Касимова!’
End;


Формы уже созданы.

[Sibedir]

У Application есть, вроде, свойство Forms. (я за планшетом сейчас)

[Stilet]

У Application есть, вроде, свойство Forms.

У Screen есть такое свойство

Сюда надо написать, что бы бралось название формы

for i:=0 to Screen.FormsCount-1 do
 if Screen.Forms[i].name=Memo.Lines[такое-то] then begin
  Screen.Forms[i].Caption:='Чему-то';
 end;

[Plankin]

Я подожду пока за комп не сядешь, я там на верху кидал ссылку не архив исходника (https://yadi.sk/d/y17ySCOSfZdEL ), в нем всего 40 строк, глянь. что с ним можно зделать.

[Plankin]

Не то. .