Uncommon object usage

type
  TMyObj = class
  public
    function GetSomeInfo: string;
  end;

{ TMyObj }

function TMyObj.GetSomeInfo: string;
begin
  Result := 'Some Info';
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  MyObj: TMyObj;

begin
  MyObj := nil;

  ShowMessage(MyObj.GetSomeInfo);
end;