Please, somebody tell me that I made a mistake in this code.

Please, somebody tell me that I made a mistake in this code.
Otherwise it would mean that this has been broken since Delphi 6 days and nobody noticed.

---- report ----

The IOTAComponent method SetPropByName, when used for an integer property, always sets that property to 0 instead of the desired value.

constructor Tf_SetIntPropertyTest.Create(_Owner: TComponent);
var
i: Integer;
fe: IOTAFormEditor;
root: IOTAComponent;
cmp: IOTAComponent;
CmpName: string;
IntValue: Integer;
begin
inherited Create(_Owner);

fe := GetActiveFormEditor;
if not Assigned(fe) then begin
m_Output.Lines.Add('No active form editor');
end else begin
root := fe.GetRootComponent;
for i := 0 to root.GetComponentCount - 1 do begin
cmp := root.GetComponent;
if cmp.GetPropValueByName('Name', CmpName) then begin
m_Output.Lines.Add(CmpName + ': ' + cmp.GetComponentType);
if cmp.GetComponentType = 'TTimer' then begin
if cmp.GetPropValueByName('Interval', IntValue) then begin
m_Output.Lines.Add('Interval: ' + IntToStr(IntValue));
IntValue := 500;
if cmp.SetPropByName('Interval', IntValue) then begin
m_Output.Lines.Add('SetPropByName returned true');
if cmp.GetPropValueByName('Interval', IntValue) then begin
// --> here it returns 0, so the set operation did not set the new value
m_Output.Lines.Add('new Interval: ' + IntToStr(IntValue));
end;
end;
end;
end;
end;
end;
end;
end;

https://quality.embarcadero.com/browse/RSP-20895