C++ DLL in Delphi einbinden

[xthing]

Hi Leute,

wie kann ich eine C++ DLL in Delphi einbinden? Habe mal eine TestDll in C erstellt wollte dann darauf zugreifen. Beim Delphi Programmstart gibt's dann eine Zugriffsverletzung. Hier mal der Code in Delphi:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

//c++ DLL
function _berechne(var A, B : Integer) : Integer; cdecl; external 'c:\dll\MatheC.dll';

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var wert1 : integer;
var wert2 : Integer;
begin
Wert1 := 2;
Wert2 := 3;

Edit1.Text := intToStr(_berechne(Wert1,Wert2));
end;

end.

Hier die C++ Dll. Hab ich aus dem Netz:
----------------------------------------------------------------------------------------------------------------------------------
#include <windows.h>

#pragma argsused

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
return 1;
}


// extern verfügbare funktionen:
extern "C" __declspec(dllexport)int berechne(int, int);

// implemetierungen aller funktionen
int __export berechne(int A, int B)
{
return A + B;
}
-----------------------------------------------------------------------------------------------------------------------------------

Kann mir jemand von euch helfen?

Danke im voraus.
Gruss
xthing