uses Controls, ComCtrls 

type
   
   TPageControl=class(ComCtrls.TPageControl) //хак с подменой класса
   protected
      procedure CreateParams(var Params: TCreateParams); override;
   private
      procedure CNDrawItem(var Msg: TWMDrawItem); message CN_DRAWITEM;
   end;
   
//------------------------------------------------------------------------------   
procedure TPageControl.CreateParams(var Params: TCreateParams);
begin
   inherited CreateParams(Params);
   Params.Style:=Params.Style or TCS_OWNERDRAWFIXED;
end;   
//------------------------------------------------------------------------------      
procedure TPageControl.CNDrawItem(var Msg: TWMDrawItem);
var
   R                 : TRect;
   Page              : TTabSheet;
   iVisibleID        : integer;
   i                 : integer;
begin
   inherited;

   R:=Msg.DrawItemStruct.rcItem;

   Page:=nil;
   iVisibleID:=-1;
   for i:=0 to PageCount-1 do
   begin
      if Pages[i].TabVisible then
         iVisibleID:=iVisibleID+1;

      if iVisibleID=Msg.DrawItemStruct.itemID then
      begin
         Page:=Pages[i];
         break;
      end;
   end;
  
   //далее делаем что нужно, используя:
   // - R
   // - Canvas
   // - Page
end;