Блокнот с несколькими вкладками

[romanzi]

Вот код добавления вкладки - по идее должна создаваться новая вкладка, где можно писать уже совсем другое. Но создаётся вкладка, пишу текст - и во всех вкладках этот-же текст.
Как действительно создать много страничный блокнот?

procedure TForm1.N2Click(Sender: TObject);
var
  NewTab: TTabSheet;
  NewMemo: TMemo;
begin
  // создаем новый TabSheet
  NewTab := TTabSheet.Create(PageControl1);
  with NewTab do
  begin
    PageControl := PageControl1;
    Caption := 'Закладка ' + IntToStr(PageControl1.PageCount);
  end;
  // создаем новый Memo
  NewMemo := TMemo.Create(NewTab);
  with NewMemo do
  begin
    Parent := NewTab;
    Align := alClient;
    Clear;
  end;
  PageControl1.ActivePageIndex := PageControl1.PageCount - 1;
end;

[asmodey1]

Эта процедура работает, и работает правильно - на каждой вкладке свой Мемо с разными текстами.
Ищите ошибку в другом месте, например, в обработчике MemoOnChange или MemoOnKeyPress или еще где-нибудь.

[romanzi]

Что значит ошибку?

Эти Event"ы у меня пусты...

[asmodey1]

Сообщение от romanzi

Что значит ошибку?

А то и значит...
Некогда мне с вами пререкаться.
Вот получите и думайте, где вы там у себя намудрили...
Project99.rar

[Johnson]

Согласен, ошибка у автора в другом месте. Делал не так давно подобное. Код вышел почти идентичный.
Возможно, у Вас все компоненты мемо делют родителем форму. чтобы это проверить - в дезайнтайме создайте пустую вкладку, а после запуска и создания вкладок переключиться на первую - мемо не должны быть видны.