procedure Test{@procedure Test(a: integer:=1);@}(a: integer := 1);
begin
  
end;

procedure Test{@procedure Test(a: string:='abc');@}(a: string := 'abc');
begin
  
end;

procedure Test{@procedure Test(a: Object:=nil);@}(a: object := nil);
begin

end;

procedure Test{@procedure Test(a: real:=sin(2));@}(a: real := sin(2));
begin

end;

function Test2{@function Test2(a: integer:=1): integer;@}(a: integer := 1): integer;
begin
  
end;

function Test2{@function Test2(a: string:='abc'): string;@}(a: string := 'abc'): string;
begin
  
end;

function Test2{@function Test2(a: Object:=nil): integer;@}(a: object := nil): integer;
begin

end;

function Test2{@function Test2(a: real:=sin(2)): integer;@}(a: real := sin(2)): integer;
begin

end;
begin
end.