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;
Código:
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