[vinni]

Доброго времени суток. Делаю следующее.
На форме есть PageControl с нулевым количеством вкладок. При нажатии на кнопку в нем создается вкладка, содержащая два Memo. При нажатии еще раз - еще одна вкладка с двумя Memo (как в QIP).
Как получить доступ к этим Memo? Т.е. нужно получить текст компонента TMemo (например, Memo2.Text) который был динамически создан на динамически созданной вкладке в PageControl :-) Задача несложная, просто никак не соображу как это сделать. Вот код:

Код:

 procedure TForm2.AddPage(PageCap: string);
var
  TSh: TTabSheet;
begin
    begin
      TSh := TTabSheet.Create(Self);
      TSh.Caption := PageCap;
      TSh.Parent := Self;
      TSh.PageControl := PageControl1;
      PageControl1.ActivePage := TSh;

      Memo1 := TMemo.Create(Self);
      Memo2 := TMemo.Create(Self);

      Memo1.Parent := TSh;
      Memo2.Parent := TSh;
end;