DLL einbinden

[CReber]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  LibHandle: THandle;
  bums:integer;
  Addieren: function(eins,zwei:integer):integer; stdcall;
  begin
    LibHandle := LoadLibrary('c:\DLL.dll');
    if LibHandle = 0 then
      raise Exception.Create('Unable to Load DLL...')
    else
    begin
      try @Addieren := GetProcAddress(LibHandle, 'Addieren');
        if @Addieren <> nil then
          bums:=Addieren(2,3);
      except
        on E: Exception do
          ShowMessage('Exception error: ' + E.Message);
      end;
    end;
    FreeLibrary(LibHandle);
end;

Ist daran was falsch? Bei mir kommt immer Zugriffsverletzung ! Ist ne DLL von einem VB projekt