[Ruben_Cu]

Hola acalderonr, para lograr lo que quieres basta con que uses las propiedades y eventos del control revisa el hilo:
del foro viejo.
Como en ese ejemplo todas se pintan de un color la adecuación en tu caso sería algo así como;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
        with PageControl1.Canvas do
        begin
        case TabIndex of
                0: Brush.Color:=clblue;
                1: Brush.Color:=clred;
                2: Brush.Color:=clyellow;
                end;
                FillRect(Rect);
        end;
end;

Espero que sea lo que andas buscando, saludos