Цвет вкладок в pagecontrol

procedure TForm1.FormCreate(Sender: TObject);
begin
   tab_index := -1; // Это описано в классе формы, потом поймешь зачем
   PageControl1.OwnerDraw := true;
   PageControl1.DoubleBuffered := true;
end;

// Здесь определяем, над какой закладкой сейчас мышь
procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
   hti : TC_HITTESTINFO;
   P : TPoint;
   prev : Integer;
   pc : TPageControl;
begin
   pc := Sender as TPageControl;
   prev := tab_index;
 
   GetCursorPos(P);
   P := pc.ScreenToClient(P);
   hti.pt.x := P.x;
   hti.pt.y := P.y;
   tab_index := pc.Perform(TCM_HITTEST, 0, @hti);
   if prev <> tab_index then 
      // Если мыша перешла на другую закладку - отрисовываем новое положение вещей
      pc.Invalidate;
end;
 
// А тут, собственно, красим вкладку в нужный цвет (можно и цвет текста поменять)
// и рисуем вкладку и Caption для таба (сам Caption отображаться не будет, потому как OwnerDraw)
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
   s : string;
   R : TRect;
begin
   if TabIndex = tab_index then
   begin
      Control.Canvas.Brush.Color := clDkGray // Вот он, цвет, которым будет выделяться таб
   end
   else Control.Canvas.Brush.Color := clBtnFace;
 
   Control.Canvas.FillRect(Rect);
   s := (Control as TPageControl).Pages[TabIndex].Caption;
   CopyRect(R, Rect);
   DrawText(Control.Canvas.Handle, PChar(s), Length(s), R,
            DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;

 tab_index := pc.Perform(TCM_HITTEST, 0, @hti);