Tpage control

[shaghayegh_6113]

سلام
من یه Page control دارم که Tab Position اش رو Left گذاشتم و برای رنگی کردن Title اش Owner Draw رو True کردم ولی با این کار مجبور شدم برای Caption اش از کد زیر استفاده کنم( چون این خاصیت باعث می شه که Captin tabshit ها از بین بره ) :


procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
AText: string;
APoint: TPoint;
begin
with (Control as TPageControl).Canvas do
begin
FillRect(Rect);
AText := TPageControl(Control).Pages[TabIndex].Caption;
with Control.Canvas do
begin
APoint.x := (Rect.Right - Rect.Left) div 2 - TextWidth(AText) div 2;
APoint.y := (Rect.Bottom - Rect.Top) div 2 - TextHeight(AText) div 2;
TextRect(Rect, Rect.Left + APoint.x, Rect.Top + APoint.y, AText);
end;
end;
end;

end.
حالا مشکلم اینه که هر کاری می کنم Caption tabshit هام عمودی نمی شه و همش افقی نوشته می شه
کسی میدونه باید چی کار کنم ؟؟