Analisando o seguinte código, que foi escrito utilizando a l...

Analisando o seguinte código, que foi escrito utilizando a linguagem Delphi, o que acontecerá quando a função UsarValor for executada?

unit Unit2;

interface

type

TMeuInteger = ^Integer;

function GetValor(numero :Integer) :TMeuInteger;

procedure UsaValor;

implementation

function GetValor(numero :Integer) :TMeuInteger;

begin

Result := @numero;

numero := 4;

end;

procedure UsaValor;

var

i : Integer;

begin

i := GetValor(5)^;

end;

end.