procedure TWizzardEditor.ExecuteVerb(Index: Integer);
begin
 inherited;
 case Index of
   0:
   begin
     if Component is TCustomWizzard then
     begin
       (Component as TCustomWizzard).AddPage(Designer.UniqueName('WizzardPage'));
       Designer.Modified;
     end;
   end;
 end;
 
end;

function TCustomWizzard.AddPage(PageName: string): Integer;
var
 TempPage: TCustomWizzardPage;
begin
 TempPage := CreatePage;
 InitializePage(TempPage, PageName);
 Result := FPages.Add(TempPage);
end;

function TWizzard.CreatePage: TCustomWizzardPage;
begin
 Result := TWizzardPage.Create(Self.Owner);
end;

 Result := TWizzardPage.Create(Self.Owner);

Self.Owner

TempPage := TWizzardPage.Create(Self.Owner);;
TempPage.InitializePage(PageName);
Result := FPages.Add(TempPage);

Result := Designer.CreateComponent(TCustomWizzardPage,Component,Left,Top,Width,Height);
TCustomWizzardPage(Result).Wizzard := (Component as TCustomWizzard);

TempPage := TWizzardPage.Create(Self.Owner);;

TempPage := Designer.CreateComponent(TWizzardPage, Component, 0,0,0,0);

[Pascal Error] KSoftWareWizzardEditorUnit.pas(36): E2010 Incompatible types: 'TWizzardPage' and 'TComponent'

TWinControl
    ^
    |
TCustomWizzardPage
    ^
    |
TWizzardPage

TempPage := Designer.CreateComponent(TWizzardPage, Component, 0,0,0,0)  as  TWizzardPage;

var A: TControl;
    B: TComponent;
begin
 B := A;
//    но не наоборот
 A := B;  
end;

Designer.CreateComponent(TWizzardPage

Wizzard:
 WizzardPage1
 WizzardPage2
 WizzardPage3

procedure TWizzardEditor.ExecuteVerb(Index: Integer);
begin
inherited;
case Index of
  0://  Создание компонента
  1,2: begin // выбор панели
        TempPage := TWizzardPage(Component).GetNexPage(Index = 1);
        Designer.SelectComponent(TempPage);
   end;
end;{case}
end;