program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  System.Types;

type
  TMyClass = class(TObject)
  public
    //FMyVar : Integer;
    FMyVarOne, FMyVarFree, FMyVarFour : Integer;
    FChar: Char;
    FInt64, FInt64Two: Int64;
    function Summ(const AMyIntOne, AMyIntTwo: Integer): Integer;
  end;

  TMyClassTwo = class(TObject)
  public
  FMyArray : Array [1..1000] of Byte;
  end;

var

  MyObject: TMyClass;
  MyTwoObject: TMyClassTwo;
  LengthMemoryObject: Integer;
  Addr: DWord;

{ TMyClass }

function TMyClass.Summ(const  AMyIntOne, AMyIntTwo: Integer): Integer;
var
  I: Integer;

begin
  Result := AMyIntOne + AMyIntTwo;
end;

begin
  try
    MyObject := TMyClass.Create;
    MyTwoObject := TMyClassTwo.Create;

    LengthMemoryObject := MyTwoObject.InstanceSize;
    //LengthMemoryObject := InstanceSize(TMyClass);
    FreeAndNil(MyObject);
    Addr := DWord(Pointer(MyObject));
    Writeln(IntToStr(LengthMemoryObject));
    Writeln(IntToStr(Addr));
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;

end.