Создание и подключение dll

library MyDll;
 
const 
  PascalABCNET = 'PascalABC.NET';
 
type 
  My = class 
  private
    s: string;
  public  
    constructor (s: string);
    begin
      Self.s := s;
    end;
    function ToString: string; override;
    begin
      Result := s;
    end;
  end;
 
function MyAdd(a,b: integer): integer;
begin
  Result := a + b;
end;
 
end.

{$reference mydll.dll}
begin
  writeln(PascalABCNET);
  writeln(MyAdd(2,3));
  var m: My;
  m := new My('Hello');
  writeln(m);
end.