procedure Tform1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
with PageControl1.canvas do begin
fillrect(rect);
brush.style := bsClear;
font.Color := clWhite;
textout(rect.left+3,rect.top+3,PageControl1.Pages[TabIndex].Caption);
font.Color := clBlack;
textout(rect.left+2,rect.top+2,PageControl1.Pages[TabIndex].Caption);
end;
end;