Перемещение TTabSheet в PageControl

[Mifig]

Может кто сталкивался с такой задачей, нужно из PageControl1 перетащить TTabSheet в PageControl2.

Пробывал вот так:

procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 if (Source.ClassName = 'TTabSheet') then TabSheet1.PageControl:=PageControl1;
end;

procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X, Y: Integer;  State: TDragState; var Accept: Boolean);
begin
Accept := (Source is TTabSheet);
end;

procedure TForm1.TabSheet2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then   (Sender as TTabSheet).BeginDrag(true);
end;

Но PageControl1 не принемает TabSheet

[asmodey1]

Подправляем:

procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
if (Source is TTabSheet) then
(Source as TTabSheet).PageControl:=PageControl1;
end;

[Mifig]

asmodey1 не в этом тут дело, перенос у меня работает но если pagecontrol пустой т.е. в нём нету tabsheet'a то перенести его не получиться пустой pagecontrol его не примет(
Ладно разберусь, спасибо что уделил время.

[asmodey1]

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

...но если pagecontrol пустой...

...то нужно динамически создать новый ТTabSheet...

[Mifig]

а зачем динамический? мне просто нужно из однго pagecontrol в другой перетаскивать. решил что хоть один tabsheet должен остаться в pagecontrol

[asmodey1]

Неверный подход
Делаем по-другому :
1. На пустой ТPageControl бросаем TImage и подгоняем ее под размеры и положение вашего ТPageControl.
2. Обработчики OnDragOver и OnDragDrop переписываем для этого TImage.
3. Результат - все нормально переносится и в пустой ТPageControl...