PageControl -> Tabs selber beschriften -> TabVisible Problem

[HolgerCW]

Das ist meine Procedure. Habe nur die relevanten Sachen stehen gelassen:

Delphi-Quellcode:

procedure Berechtigung_Tab_zeichnen(PageControl: TPageControl; Bilder: Boolean;Control: TCustomTabControl; Der_TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin

 //bitte Tabindex in Deklaration mit ATabindex auswechseln,
 //sonst überschneidung mit Pagecontrol.tabindex. Deklaration in
 //Tform nicht vergessen
 //OwnerDraw des PageControls auf true setzen

 with Control as TPageControl do
 begin

   If Berechtigt = TRUE then
   begin

    //Wenn Berechtigt wird normal gezeichnet  (Tahoma)
    Canvas.Brush.Style := bssolid;
    Canvas.Font.Color  := clbtntext;
    Canvas.TextOut(rect.left+25,rect.top+7,Pages[Der_Tabindex].Caption);
    If Bilder = TRUE then Images.Draw(Canvas,rect.Left+7,rect.Top+2, Der_Tabindex);

   end
   else
   begin

    //Wenn nicht berechtigt wird enabled gezeichnet
    Canvas.Brush.Style := bssolid;
    Canvas.Font.Color  := clBtnHighlight;
    Canvas.TextOut(rect.left+25,rect.top+7,Pages[Der_Tabindex].Caption);
    
    //text in anderer Farbe wieder drüberzeichnen (25 Pixel nach links oben versetzt)
    Canvas.Brush.Style := bsclear;
    Canvas.Font.Color  := clBtnShadow;
    Canvas.TextOut(rect.left+26,rect.top+8,Pages[Der_Tabindex].Caption);
    
    If Bilder = TRUE then Images.Draw(Canvas,rect.Left+7,rect.Top+2, Der_Tabindex);

   end;

  end;

end;

Was muss ich da ergänzen wenn ich ein Tab Visible = TRUE setze ?