pascalabcnet/CodeExamples/TypeclassExample.pas

type
  SumTC[T] = typeclass
    function sum(v1, v2: T): T;
  end;
  
  SumTC[integer] = instance
    function sum(v1, v2: integer): integer;
    begin
      Result := v1 + v2;
    end;
  end;

function Sum3<T>(v1, v2, v3: T): T; where SumTC[T];
begin
  Result := SumTC&[T].sum(v1, SumTC&[T].sum(v2, v3));
end;

begin
  var v1, v2, v3, res: integer;
  v1 := 1;
  v2 := 2;
  v3 := 3;
  
  res := Sum3&[integer](v1, v2, v3);
  
  Write(res);
end.