Ошибка: accses violation address 004617b

[Vanta11a]

procedure TForm1.ViewClientWindowExecute(Sender: TObject);
var DockWindow: TDockForm;
begin
DockWindow := DockWindows[(sender as TComponent).Tag];
with DockWindow do //ошибка примерно тут
if HostDockSite is TPageControl
then TTabDockHost(HostDockSite.Owner).Show
else if (HostDockSite is TConjoinDockHost) and not HostDockSite.Visible then begin
HostDockSite.Show;
DockWindow.Show;
end else if (HostDockSite is TPanel) and (((HostDockSite.Height = 0) or (HostDockSite.Width = 0))) then Form1.ShowDockPanel(
HostDockSite as TPanel, True, DockWindow)
else DockWindow.Show;
end;

Что в данной процедуре не так?

[BOBAH13]

1. (sender as TComponent).Tag - указывает на Integer ?
2. (sender as TComponent).Tag as Integer - реальное значение в диапазоне от 0 до Length(DockWindows) ? (т.е. входит в диапазон допустимых индексов для массива DockWindows)

UPD:

if HostDockSite is TPageControl
then TTabDockHost(HostDockSite.Owner).Show

Честное слово, столько ссылок на ссылки и с надеждой что все будет работать верно, я не видел. Тут столько мест где могут быть NIL или вообще черт знает что за адреса. Тут явно не верный подход к проектированию приложения.

Что на счет исправления и поиска ошибки, комментируйте все строки, потом по одной проверяйте на корректность адреса, чтобы не nil и чтобы был валидный.

[Vanta11a]

1). да
2). да

Можно благодарить препода, который требует, чтобы "Код по примеру!"