Adding 2 numbers with object in Pascal

// Open up Lazarus ( http://lazarus.freepascal.org )
// Click "Project -> New Project -> Program -> OK" menu
// Then paste this code
// Press F9 or click Run -> Run to test the code
// Enter 2 numbers to test

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

type
  TAddMachine = object
    number1: integer;
    number2: integer;
    function ResultOfCalculation():integer;
  end;
  function TAddMachine.ResultOfCalculation():integer;
  begin
    Result := number1 + number2;
  end;

var
  MyAddMachine: TAddMachine;

begin
  with MyAddMachine do begin
    ReadLn(number1);
    ReadLn(number2);
    WriteLn(ResultOfCalculation());
  end;
  ReadLn;
end.