Delphi - Errore classi

Ho appena iniziato a studiacchiarmi il delphi e stavo mettendo giù una piccola classe tanto per vedere come si definiscono gli oggetti.
Questa è la classe:

unit Unit1;

interface
type
  int = SmallInt;

  Somma = class
    private
      n1: int;
      n2: int;
    public
      constructor Create(); overload;
      function add():int;
      //definizione delle proprietà
      property Num1: int
        read n1
        write n1;
      property Num2: int
        read n2
        write n2;
  end;

implementation

  constructor Somma.Create();
  begin
    n1:= 0;
    n2:= 0;
  end;

  function Somma.add():int;
  begin
    Result:= n1+n2;
  end;

end.

Quando eseguo il codice del progetto console:

program HelloWorld;
{$APPTYPE CONSOLE}

uses
  Unit1;
var
  smm: Somma;
  i: int;
begin
  smm.Create();
  smm.Num1 := 10;
  smm.Num2 := 10;
  Writeln(smm.add());
  ReadLn(i);
end.

mi viene chiesta la solita segnalazione di errori microsoft, quindi penso che sia un problema di inizializzazione anche perché dal debug mi sembra che il progr si fermi alla Create della classe Somma


EDIT: confermo che togliendo la smm.Create(); la classe funziona alla perfezione nonostante mi venga detto come warning che la classe non è stata inizializzata.
Quindi perché il costruttore non funziona?

program HelloWorld;
{$APPTYPE CONSOLE}

uses
  Unit1;
var
  smm: Somma;
  i: int;
begin
  [b]smm := Somma.Create;[/b]
  smm.Num1 := 10;
  smm.Num2 := 10;
  Writeln(smm.add());
  ReadLn(i);
end.

Dai un'occhiata a delphibasics.co.uk/…