program Project26;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  TSomeData = record {class}
    X, Y, Z: Integer;
  end;

  TSomeWorker = class
  private
    FData: TSomeData;
  public
    constructor Create(const AData: TSomeData);

    procedure Calculate;
  end;

{ TSomeWorker }


constructor TSomeWorker.Create(const AData: TSomeData);
begin
  FData := AData;
end;

procedure TSomeWorker.Calculate;
begin
  FData.Z := FData.X + FData.Y;
end;

procedure Main;
var
  LData: TSomeData;
  LWorker: TSomeWorker;
begin
  {LData := TSomeData.Create;}
  LData.X := 1;
  LData.Y := 2;
  LData.Z := 0;

  LWorker := TSomeWorker.Create(LData);
  try
    LWorker.Calculate;
  finally
    FreeAndNil(LWorker)
  end;

  Writeln(LData.Z);
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.