PageControl - aktives TabSheet

[rauschs]

OK... das geht jetzt bei mir...
Jetzt soll das untere Tabsheet auch weiß werden.. dachte das es so geht.. hab mich aber getäuscht...

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
with (Control as TPageControl) do
begin
if (Active) then
begin
Canvas.Brush.Color := clWhite;
pagecontrol1.ActivePage.Brush.Color := clWhite;
end
else
Canvas.Brush.Color := clBtnFace;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left + 5, Rect.Top + 3, Pages[TabIndex].Caption);
end;
end;

Es wird zwar weiß, aber erst wenn man den Reiter (die Tabs) oben schon mal durchgegangen... also erst beim 2ten Mal..
Und wie bekomm ich den hässlichen Rand da weg..?

Gruß,
Sascha

P.S.: Danke schonmal, für die bis hierher aufgebrachte Geduld...