Add warning when a local constant hides class constant

(very simplistic) example:

type

TMyObject = class

private

const

cTEST = 20;

private

procedure MyMethod;

end;

procedure TMyObject.MyMethod;

const

cTEST = 30;

begin

ShowMessage(IntToStr(cTEST));

end;

A warning should appear on "cTEST = 30;" saying that it hides "cTEST = 20;"