1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
var
 phm: HModule;
 ExecF: function(AParent: TWinControl): ICBStatistikModule;
 LFrame: ICBStatistikModule;
begin
 phm:=LoadPackage('D:\projekte\bin\bpl\Statistik.bpl');
 if phm <> 0 then
 try
   @ExecF:=GetProcAddress(phm,'cbGetStatistikIntf');
   if Assigned(ExecF) then begin
     LFrame := ExecF(Panel1);
     if assigned(LFrame) then
       ShowMessage('False!');
     ShowMessage ('Execute routine not found!');
   end
 finally
   UnloadPackage(phm);
 end
 else
   ShowMessage ('Package not found');
end;					

1:
2:
3:

  ICBStatistikModule = Interface(IInterface)
    procedure IAssignParent(AParent: TWinControl);
  end;					

1:
2:
3:
4:
5:
6:

function cbGetStatistikIntf(AParent: TWinControl): ICBStatistikModule;
begin
  vFrame := TFrame1.Create(AParent);
  vFrame.Parent := AParent;
  result := vFrame;
end;					

1:
2:
3:
4:
5:

function cbGetStatistikIntf(AParent: TWinControl): TFrame;
begin
  vFrame := TFrame1.create(Application);
  result := vFrame;
end;