/* Replace "dll.h" with the name of your header */
#include "dll.h"
#include <windows.h>
using namespace std;

DllClass::DllClass()
{

}

DllClass::~DllClass ()
{

}

BOOL APIENTRY DllMain (HINSTANCE hInst     /* Library instance handle. */ ,
                         DWORD reason        /* Reason this function is being called. */ ,
                         LPVOID reserved     /* Not used. */ )
{
      switch (reason)
      {
        case DLL_PROCESS_ATTACH:
          break;

        case DLL_PROCESS_DETACH:
          break;

        case DLL_THREAD_ATTACH:
          break;

        case DLL_THREAD_DETACH:
          break;
      }

      /* Returns TRUE on success, FALSE on failure */
      return TRUE;
}

#ifndef _DLL_H_
#define _DLL_H_

#if BUILDING_DLL
# define DLLIMPORT __declspec (dllexport)
#else /* Not BUILDING_DLL */
# define DLLIMPORT __declspec (dllimport)
#endif /* Not BUILDING_DLL */

class DLLIMPORT DllClass
{
    public:
      DllClass();
      virtual ~DllClass(void);

    private:

};

#endif /* _DLL_H_ */

library MyDLL;

uses SysUtils, Classes;

function MyMin(x,y:double):double;  cdecl;
begin
    if x<y then Result := x else Result := y;
end;

var res : array[0..1024] of char;

function DoubleString(str:PChar):PChar; cdecl;
begin
    StrCopy(res,str);
    StrCat(res,str);
    Result := res;
end;

exports MyMin, DoubleString;

begin
end.

_cdecl double SUM(double a,double b)
{
   return a+b;
}