delphi - TSplitter のカスタム ペイント メソッドが Vcl Styles の色を使用しない

Question

このリンクに投稿されたコードを使用してTSplitter enhanced with grab bar、スプリッター コントロールにグラブ バーを描画します。

procedure TSplitter.Paint;
var
  R: TRect;
  X, Y: integer;
  DX, DY: integer;
  i: integer;
  Brush: TBitmap;
begin
  R := ClientRect;
  Canvas.Brush.Color := Color;
  Canvas.FillRect(ClientRect);

  X := (R.Left+R.Right) div 2;
  Y := (R.Top+R.Bottom) div 2;
  if (Align in [alLeft, alRight]) then
  begin
    DX := 0;
    DY := 3;
  end else
  begin
    DX := 3;
    DY := 0;
  end;
  dec(X, DX*2);
  dec(Y, DY*2);

  Brush := TBitmap.Create;
  try
    Brush.SetSize(2, 2);
    Brush.Canvas.Brush.Color := clBtnHighlight;
    Brush.Canvas.FillRect(Rect(0,0,1,1));
    Brush.Canvas.Pixels[0, 0] := clBtnShadow;
    for i := 0 to 4 do
    begin
      Canvas.Draw(X, Y, Brush);
      inc(X, DX);
      inc(Y, DY);
    end;
  finally
    Brush.Free;
  end;

end;

コードはうまく動作しますが、vcl スタイルを有効にすると、スプリッターの描画に使用される色とグラブ バーが vcl スタイルで使用される色に適合しません。

現在のテーマの Vcl スタイルの色を使用して TSplitter を描画するにはどうすればよいですか?