DLL библиотека

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  N, s: integer;
implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit2.Text:= '';
s:=0;
for N:= 1 to Length(Edit1.Text) do
 begin
  Edit2.Text:= Edit2.Text + intToStr(ord(Edit1.Text[N])) + '  ';
  s:=s+ ord(Edit1.Text[N]);
 end;
end;
end.

library dd;
uses
  SysUtils,
  Classes;
{$R *.res}
 function fact(s: string): string;
var
  i: integer;
begin
  result := '';
  for i := 1 to Length(s) do
    result := result + IntToHex(ord(s[i]), 2);
    end;
exports
  fact;
begin
end.