Uso de PageControl con ImageList

[sabinajoa]

Hola a todos,

Me gustaría poder cambiar el color de la pestaña del PageControl, ya he estado mirando los hilos que hay al respecto, y en principio me servirían, sino fuera por que tengo unas imágenes añadidas al TabSheet (con un TImageList).
Con el siguiente código:

 
procedure TfrmJob.pagecontrolDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var R: TRect;
	Texto: String;
begin
   Control.Canvas.Brush.Color := clWhite;
   Control.Canvas.Font.Color := clBlack;
   Texto := pgjob.Pages[TabIndex].Caption;
   R := Rect;
   Control.Canvas.FillRect(R);
   if not Active then
	InflateRect(R, 0, -3);
   DrawText(Control.Canvas.Handle, PChar(Texto), -1, R, DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;

Lo que consigo es que se me quede el fondo blanco y las letras en negro, pero claro, la imagen no sale.
Alguien me podría asesorar de como hacer para que ésta salga??? Muchas gracias a todos!!