[san-46]

Код:

procedure TMyType3.C;
begin
  TMyType(Self).Name := 'abcde';
  A; // message "abcde"
end;