program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

type
  c = class
  public
    Test: integer;
    procedure Call1;
    procedure Call2;
    procedure Call3;
  end;

procedure c.Call1;
begin
  writeln(NativeUint(@Test));
end;

procedure c.Call2;
var
  Test5454: integer;
begin
  Test5454 := 45;
  writeln('Call2 ' + NativeUint(@Test5454).ToString + ' : ' + Test5454.ToString);
end;

procedure c.Call3;
var
  Test0: integer;
begin
  writeln('Call3 ' + NativeUint(@Test0).ToString + ' : ' + Test0.ToString);
  writeln(NativeUint(@Test));
end;

var
  t: c;

begin
  try
    t := c.Create;
    t.Call1;
    t.Call2;
    t.Call3;

  except
    on E: Exception do
      writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;

end.

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

type
  c = class
  public
    IsChainTmp: Boolean;
    procedure Call1(IsChain: Boolean = false);
    procedure Call2;
    procedure Call3;
    procedure Test;
  end;

procedure c.Test;
begin

end;

procedure c.Call1;
var
  Test0: integer;
begin
  Randomize;
  Test0 := Random(100) + 1;
  writeln('Test = ' + NativeUint(@IsChainTmp).ToString);
  writeln('Self = ' + NativeUint(@self).ToString);

  IsChainTmp := IsChain;
  if IsChainTmp then
    Call2;

  writeln('Test0(Call1) = ' + NativeUint(@Test0).ToString + ' : ' + Test0.ToString);
end;

procedure c.Call2;
var
  Test1: integer;
begin
  Randomize;
  Test1 := Test1 * Random(50) + 1;
  writeln('Test1(Call2) = ' + NativeUint(@Test1).ToString + ' : ' + Test1.ToString);

  if IsChainTmp then
    Call3;
end;

procedure c.Call3;
var
  Test2: integer;
begin
  writeln('Test2(Call3) = ' + NativeUint(@Test2).ToString + ' : ' + Test2.ToString);
end;

var
  Global: integer;

  t: c;

begin
  try

    writeln('Global ' + NativeUint(@Global).ToString + ' : ' + Global.ToString);

    t := c.Create;
    t.Call1;
    t.Call2;
    t.Call3;

    t.Call1(true);
    t.Call3;

  except
    on E: Exception do
      writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;

end.