access violation at address при удалении страницы с TTabbedNoteBook

[[MoNAMur]]

опять надеюсь на вашу помощь.

нужно при нажатии на кнопку закрыть(удалить) активную страницу с TabbedNoteBook

пробовал так:

procedure TMessageForm.SpeedButton1Click(Sender: TObject);
var
    TabPage : TTabPage;
begin

//
with MessageForm.TabbedNotebook1 do
begin
    if Pages.Count > 1 then
        begin
			TabPage := TTabPage(Pages.Objects[GetIndexForPage(ActivePage)]);
            TabPage.DestroyComponents;
            TabPage.Free;
        end
    else MessageForm.Hide;
end;
end;

и так

procedure TMessageForm.SpeedButton1Click(Sender: TObject);
var
    TabName : string;
begin
	if MessageForm.TabbedNotebook1.Pages.Count > 1 then
		begin
			TabName := MessageForm.TabbedNotebook1.ActivePage;
			MessageForm.TabbedNotebook1.Pages.Delete(MessageForm.TabbedNotebook1.GetIndexForPage(TabName));
		end
	else MessageForm.Hide;
end;

В обоих случаях ошибка access violation at address

[[MoNAMur]]

как иронично забавно, гугл привел меня к моему же посту

[Пепел Феникса]

покажите как создавали вкладку.

[[MoNAMur]]

PageIndex := MessageForm.TabbedNotebook1.GetIndexForPage(TabName);
	if (PageIndex > -1)
		then
			begin
     				result := PageIndex;
			end
		else
			begin
MessageForm.TabbedNotebook1.Pages.Add(TabName);

...

PageIndex := MessageForm.TabbedNotebook1.GetIndexForPage(TabName);
						result := PageIndex;
TabPage := TTabPage(MessageForm.TabbedNotebook1.Pages.Objects[PageIndex]);
						AImage := TImage.Create(TabPage);
						try
							AImage.Name := 'MAvatar'+TabName;
							AImage.Parent := TabPage;
							AImage.height := 40;
							AImage.Width := 40;
							AImage.top := 0;
							AImage.left := 0;
              AImage.Center := true;
              AImage.Picture.LoadFromFile(constant.CONTACTS_DIR+'\'+trim(ContactName)+'\avatar.jpg');
						except
							AImage.Free;
						end;
...

Upd: реализовал нужный мне функционал с помощью другого компонента, но все равно было бы интересно узнать почему с этим не работало