TabSheet en tiempo de ejecucion

[chechu]

Este es el codigo del boton que crea las tab en tiempo de ejecucion y depues en un boton que ubique sobre la barra de herramienta es que coloque el codigo para moverme entre las paginas y no funciona...


procedure THerramienta.ToolButton1Click(Sender: TObject);
var
strCaption:string;
NuevoTabSheet: TTabSheet;
Marco: TFrame;

begin

NuevoTabSheet:= TTabSheet.Create(PageControl1);
NuevoTabSheet.Visible:= True;
NuevoTabSheet.Caption:= strCaption;
NuevoTabSheet.PageControl:= PageControl1;
PageControl1.ActivePage:= NuevoTabSheet;
Marco:= TFrame.Create(NuevotabSheet);
NuevoTabSheet.InsertControl(Marco);
Marco.Color:= clwhite;
Marco.Align:= alClient;
Marco.OnDragOver:= Mover;
end;

se te ocurre cual es mi error?