Написание dll - библиотеки и ее открытие средствами Delphi

//Polygon.dll
library Polygon;
 
uses
  SysUtils,
  Classes,
  Math;
 
{$R *.res}
 
Function sq_polygon(n,b:Real):Real; stdcall;
begin
Result:=(1/4)*n*b*b*Cotan(Pi/n);
end;
Function perimeter_polygon(n,b:Real):Real; stdcall;
begin
Result:=n*b;
end;
 
Exports
 sq_polygon index 1, perimeter_polygon index 2;
begin
end.

//App_polygon.pas
unit App_polygon;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    valve: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
   //CONST DLLName='Polygon.dll'; // имя DLL
   CONST DLLName='SimpleDLL.dll'; // имя DLL
  Type
  TAllFunc = Function(n,b:Real):Real; cdecl;//stdcall;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  n,b:Real;
  Square:TAllFunc;
  Perimeter:TAllFunc;
  flag:Boolean;
  Handle:LongInt;
begin
  flag:=false;
  if( Edit1.Text <> '') then
  b:=StrToFloat(Edit1.Text)
  else
    ShowMessage('Введите параметр b!');
  if( Edit2.Text <> '')  then
    begin
    n:=StrToFloat(Edit2.Text);
    flag:=true;
    end
  else
    ShowMessage('Введите параметр n!');
  if(flag=true) then
  begin
     //Загружаем библиотеку
      Handle:=LoadLibrary(DLLName);
      if(Handle<>0) then
      begin
      @Square := GetProcAddress(Handle,PChar(LongInt(1)));
      @Perimeter := GetProcAddress(Handle,PChar(LongInt(2)));
 
     IF Assigned(Square) then
  Label5.Caption:=FloatToStrF(Square(n,b),ffFixed,10,4)
                   else
                   ShowMessage('Ошибка доступа к библиотеке(Sq) '+DLLName);
    IF Assigned(Perimeter) then
  Label6.Caption:=FloatToStrF(Perimeter(n,b),ffFixed,10,4)
                            else
                           ShowMessage('Ошибка доступа к библиотеке(Per) '+DLLName);
      end //Handle <>0
      else ShowMessage('Ошибка загрузки библиотеки'+DLLName);
   FreeLibrary(handle);
  end;//flag=true
 
end;
 
end.