Use a dynamic package to export the complete source code of the Function Unit

Unit funkfrm;

Interface

Uses
Windows, messages, sysutils, variants, classes, graphics, controls, forms,
Dialogs, stdctrls;

Type
Tfunkform = Class (tform)
Button1: tbutton;
Procedure button1click (Sender: tobject );
Private
{Private Declarations}
Public
{Public declarations}
End;
// Declare the package functions using the stdcall calling convention
Procedure funkform; stdcall;
Function addem (OP1, OP2: integer): integer; stdcall;

// Export the functions
Exports
Funkform,
Addem;

Implementation

{$ R *. DFM}
Procedure funkform;
VaR
Funkform: tfunkform;
Begin
Funkform: = tfunkform. Create (application );
Try
Funkform. showmodal;
Finally
Funkform. Free;
End;
End;

Function addem (OP1, OP2: integer): integer;
Begin
Result: = OP1 + OP2;
End;
Procedure tfunkform. button1click (Sender: tobject );
Begin
Showmessage ('you have correctly called the package export function. ');
End;

End.