كيفية انشاء ملف DLL واستدعائه بدلفي

procedure Button1Click(Sender: TObject);  // Procedure begin
private
// Déclarations privées
public
// Déclarations publiques
end;  // end

var
Form1: TForm1; // form1 = tforl1

function Addition(a1,b1: integer): integer; // Addition = integer
external 'TestDLL1.dll'; // dll

implementation

{$R *.dfm} // dfm

procedure TForm1.Button1Click(Sender: TObject);  // Procedure begin
var
x, y: integer; // y,y = integer
j: integer; // j = integer

begin
x := StrToInt(Edit1.Text); // x = Edit1.Text
y := StrToInt(Edit2.Text); // y = Edit2.Text
j := Addition(x, y);   // j = Addition x y
Label1.Caption := IntToStr(j);  // Label1.Caption = j

end;  // Procedure end

end.  // end