Fehler in TRect::SplitRect?

[Der schöne Günther]

Der zweite Parameter von SplitRect heißt Percent . (Doku)

Delphi-Quellcode:

uses System.Types;

procedure p();
var
   a, b: TRect;
begin
   a := TRect.Create(0, 0, 100, 100);
   b := a.SplitRect(TSplitRectType.srLeft, {Percent=}50.0);

   Assert( b.Left = 0 );
   Assert( b.Top = 0 );
   Assert( b.Bottom = 100 );
   Assert( b.Right = 50 ); // b.Right == 5000
end;

Könnte jemand kurz prüfen ob das in der grade aktuellen Version immer noch so ist?