Программное создание объектов

Alex437

Здравствуйте все.
Нужно программно добавить Memo к уже спроектированному в дизайнере отчету. Пишу следующий код:

procedure TMyReport.frReport1BeforePrint(Memo: TStringList; View: TfrView);
var
  Memo1: TfrMemoView;
  X, Y: Integer;
begin
  X := 100;
  Y := 50;
  Memo1 := TfrMemoView.Create();
  Memo1.SetBounds(X, Y, 150, 50);
  Memo1.Memo.Add('Some text');
end;

Никакого Memo не появляется при печати. Печатается только то, что было сделано в дизайнере.
Пробовал разместить этот код в процедуре frReport1ManualBuild(Page: TfrPage); но тогда отчет вообще перестал формироваться.
Может я что-то неправильно пишу? Подскажите, пожалуйста.

Гаджимурадов Рустам

То, что сделал, сделал правильно, но не до конца.

Memo1 := TfrMemoView.Create();
**** - все твои дела, включая Memo1.Memo.Add('Some text');
frReport1.Pages[0].Objects.Add(Memo1); - что это ты и сам уже понял.