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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

{$ifndef PAC_EXPORTS}
{$define PAC_EXPORTS}
unit pac_exports;
interface
uses pac_types; // pac-types

// constructors
function PAC_CreateBasicAI (Position: PAC_POINT; ifapxy: PAC_ISFREEATPOINTXY; Enabled:Boolean = false): PAC_BasicAI;overload
function PAC_CreateBasicAI (x, y: integer; ifapxy: PAC_ISFREEATPOINTXY; Enabled:Boolean = false): PAC_BasicAI;overload

// destructor
procedure PAC_DestroyBasicAI (AI: PAC_BasicAI);

// Let's GO!
procedure PAC_MoveBasicAI (AI: PAC_BasicAI; Steps: integer);

// to change/get some data
procedure PAC_SetPosition (AI: PAC_BasicAI; x, y: integer);overload
procedure PAC_SetPosition (AI: PAC_BasicAI; Position: PAC_POINT);overload
function PAC_GetPosition (AI: PAC_BasicAI): PAC_POINT;

procedure PAC_SetEnabled (AI: PAC_BasicAI; Enabled: boolean);
function PAC_GetEnabled (AI: PAC_BasicAI): boolean;

procedure PAC_SetIsFreeFunc (AI: PAC_BasicAI; ifapxy: PAC_ISFREEATPOINTXY);

{$endif} // PAC_EXPORTS
// die zweite:
{$ifndef PAC_TYPES}
{$define PAC_TYPES}
unit pac_types;
interface
// PAC_POINT-type
type
  PAC_POINT = record
      x: Integer;
      y: Integer;
    end;

  PAC_DIR = (PAC_DIRNONE, PAC_DIRLEFT, PAC_DIRUP, PAC_DIRRIGHT, PAC_DIRDOWN);

const
  PAC_DIRS: array[0..4] of PAC_POINT =
      (
        (x:  0; y:  0),
        (x: -1; y:  0),
        (x:  0; y: -1),
        (x:  1; y:  0),
        (x:  0; y:  1)
      );

// tool-tip missing *g*
type PAC_ISFREEATPOINTXY = function (x, y: integer): boolean;

// PAC_BasicAI-Type
type PAC_BasicAI = Pointer;

{$endif} // PAC_TYPES
implementation
begin

end.                    

1:

procedure PAC_DestroyBasicAI (AI: PAC_BasicAI); external 'dllname.dll';