Проблема с созданием компонентов

[dr.Chas]

На компоненте AdvPageControl создаю вкладку на ней ещё 1 компонент.

  
procedure TForm1.Button1Click(Sender: TObject);
var   tab : TAdvTabSheet;
       SMemo: TSynMemo;
begin
    //создаю вкладку
    tab:=TAdvTabSheet.Create(Form1);      
    tab.AdvPageControl:=AdvPageControl1;
    tab.Caption:=' Новый файл  '+IntToStr(AdvPageControl1.PageCount); 
    tab.AdvPageControl.ActivePage:=Tab;   


    //Создаю компонент SynMemo
    SMemo := TSynMemo.Create(Tab);      
    //SMemo.name:='SynMemo'+intToStr(AdvPageControl1.PageCount);
    SMemo.Parent := Tab;
    SMemo.Align := alClient;
    Smemo.PopupMenu:=PopupMenu1;
    Smemo.SetFocus;
end;

//Нажимаем в контекном меню кнопку отменить
procedure TForm1.N1Click(Sender: TObject);
var      Memo: TComponent;
begin
   //ищем компонент
   Memo:= FindComponent('SynMemo'+IntToStr((AdvPageControl1.ActivePageIndex+1)));
  (Memo as TSynMemo).Undo;  
end;
//При выполении этой процедуры выдаёться исключение 
//"EAccessViolation", т.е. я так понимаю
//что такого компонента на форме не находиться. Я пытался указать имя, 
//сам вот так 
//SMemo.name:='SynMemo'+intToStr(AdvPageControl1.PageCount);
//Но всё равно одно и тоже

В чём проблема, что я делаю не правильно?
Долго пытался решить её сам, если компоненты не создавать динамически, а просто сделать например 3 вкладки, на них поместить Мемо, и использовать последнию процедуру всё работает. Я так понял всё упираеться в имя компонента.

[mihali4]

//ищем компонент
Memo:= FindComponent('SynMemo'+IntToStr((A dvPageControl1.ActivePageIndex+1))) ;
if Memo<>nil then
(Memo as TSynMemo).Undo;
А вот это - раскомментировать:
//SMemo.name:='SynMemo'+intToStr(AdvP ageControl1.PageCount);
Вы же по имени ищете, а его - нет!
И старайтесь переменным не давать зарезервированные слова в качестве имен.

[dr.Chas]

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

//ищем компонент
Memo:= FindComponent('SynMemo'+IntToStr((A dvPageControl1.ActivePageIndex+1))) ;
if Memo<>nil then
(Memo as TSynMemo).Undo;

Так вот, самое то что результат этого поиска nil, ща проверил добавил else и сработало иначе.

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

А вот это - раскомментировать:
//SMemo.name:='SynMemo'+intToStr(AdvP ageControl1.PageCount);

И это пробывал всё равно не помогает. Даже делал так чтобы узнать какое имя у этого компонента:

   SMemo.Name:='SynMemo'+intToStr(AdvPageControl1.PageCount);
   MessageDlg(SMemo.Name,mtError,[mbOk],0);

Выводит имя которое задал, но всё равно при выполение процедуры вызываеться исключение.
P.S.: Ща проделал со стандартными компонентами всё тоже самое.
Главное с не с динамическими компонентами последняя процедура работает нормально. Значит что то не то при создании этих компонентов.

[dr.Chas]

Извиняюсь канешно, что так много флужу, но решить сам не могу, щас нашёл даже в какой строчке ошибка, но как её решить незнаю.

  
    //Вот в этой строке даже точнее  
    SMemo := TSynMemo.Create(Tab);         
   // Нашёл я таким способом, заменил в этой строке Tab, на Form1, 
   //и всё прекрасно работает.

[dr.Chas]

Спс уже разобрался сам)))