1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

library rechnen;
uses
  SysUtils,
  Classes;

{$R *.RES}
function addiere(a,b:integer):integer;
 begin
  result:= a+b;
 end;
  exports
  addiere;
begin
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
  function addiere(a,b:integer):integer;stdcall;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation
function addiere(a,b:integer):integer;stdcall;
external 'C:\Documents and Settings\MinicS\Desktop\saveWechselträger\Neuer Ordner\rechnen.dll'
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.text:=IntToSTr(addiere(2,3));
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

library rechnen;

uses
  SysUtils,
  Classes;

{$R *.RES}

function addiere(a,b:integer):integer; stdcall;
begin
  result:= a+b;
end;

exports
  addiere;

begin
end.					

1:

function add(a,b:integer):integer; external 'rechnen.dll' name 'addieren';					

1:

function addieren(a,b:integer):integer; external 'rechnen.dll';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function addieren(a,b:integer):integer;
var 
  add:function (x,y:integer):integer;
  Lib:THandle;
begin
  @add := nil;
  Lib := LoadLibrary(PCHar('rechnen.dll'));
  try
    if Lib = 0 then begin Result := -1; exit; end;
    @add := GetProcAddress(Lib,PChar('addieren'));
    if @add = nil then begin Result := -1; exit; end;
    result := add(a,b);
  finally
    FreeLibrary(Lib);
  end;
end;