Jak zmienić kolor zakładek w TPageControl?

Jak zmienić kolor zakładek w TPageControl? Po zastosowaniu stylu XP zakładki są białe i trochę walą po oczach, wolałbym szare. Znalazłem na tym forum kawałek kodu ale niestety nie bardzo działa :(

znalazłem to przez klikanie w pierwszy lepszy link na google:

// first of all making onDrawTab event 

Procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; 
TabIndex: Integer; const Rect: TRect; Active: Boolean); 
begin 
  case TabIndex of 
    0: Control.Canvas.Brush.Color:=clgreen; 
    1: Control.Canvas.Brush.Color:=clred; 
    2: Control.Canvas.Brush.Color:=clblue; 
    3: Control.Canvas.Brush.Color:=clYellow; 
    4: Control.Canvas.Brush.Color:=clMaroon; 
    5: Control.Canvas.Brush.Color:=clWhite; 
  end; 
  Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption);
  PageControl1.Pages[TabIndex].Brush.Color:=Control.Canvas.Brush.Color; 
end; 


// And Then while Form creating pointing 
// that we have an our own Draw Method for desired PageControl 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  PageControl1.OwnerDraw:=true; 
end;

Nie sprawdzałem ;)