1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.TabControl1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  iNewPos : Integer;
begin
  with TabControl1 do begin
    iNewPos := IndexOfTabAt(x, y); // ermittle Eintrag unter maus
    if iNewPos = -1 then // kein Eintrag darunter
       iNewPos := FMyFigure.Count - 1; // also werde letzter
    FMyFigure.Move(TabIndex, iNewPos); // Neue Position
    Tabs.Move(TabIndex, iNewPos); // Neue Position
    TabIndex := iNewPos;
    Figchanged := true;
    Statchanged := True;
  end;
end;

procedure TForm1.TabControl1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  Accept := Source = TabControl1; // bist du eintrag von mir
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

  public
    { Public declarations }
    Drawing: Boolean; { Für Tab verschieben OnMouseDown beginnen OnMouseMove verschieben OnMouseUp beenden }
  end;

procedure TForm1.TabControl1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
     Drawing := True;
end;

procedure TForm1.TabControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
   if Drawing then begin
   TabControl1.DragMode := dmAutomatic;
   TabControl1DragDrop(Sender, TabControl1.Tabs.Objects[TabControl1.TabIndex], x, y);
   end;
end;

procedure TForm1.TabControl1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     Drawing := False;  { clear the Drawing flag }
     TabControl1.DragMode := dmManual;
end;

procedure TForm1.TabControl1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  iNewPos : Integer;
begin
  with TabControl1 do begin
    iNewPos := IndexOfTabAt(x, y); // ermittle Eintrag unter maus
    if iNewPos = -1 then // kein Eintrag darunter
       iNewPos := FMySheet.Count - 1; // also werde letzter
    FMySheet.Move(TabControl1.TabIndex, iNewPos); // Neue Position
    TabControl1.Tabs.Move(TabControl1.TabIndex, iNewPos); // Neue Position
    TabControl1.TabIndex := iNewPos;
  end;
end;

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