[Rat]

Во первых сделай так:

Код:

Memo1 := TMemo.Create(TSh);
Memo2 := TMemo.Create(Tsh);

Во вторых имя не подставляется. Егу нужно указывать если ты создаешь динамически:

Код:

Memo1.Name := 'Name1';

Имя должно быть уникальным.