1:
2:
3:

Type
  TExitMidi=Procedure(Idx:Integer);
  TExecMidi=Procedure(Par1:TApplication;Par2:Pointer);					

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

procedure TForm1.Modules1Click(Sender: TObject);
Var
  Prg:TExecMidi;
  EM:^TExitMidi;
begin
    if LHdl=0 then
    begin
      EM:=@TForm1.CloseMidi;
      LHdl:=LoadLibrary('MidiDLL');
      if LHdl<>0 then
      begin
          @Prg:=GetProcAddress(LHdl,'RunPlugin');
          if @Prg<>Nil then
            Prg(Application,EM);
          else
            ShowMessage('MidiDLL not found!');
      end;
end;					

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

Procedure TForm1.CloseMidi(Index:Integer);
begin
    //Variabel LHdl wird spaeter ein Array THandle sein fuer mehrere Plugins,
    //daher der Parameter Index, um die entsprechende Dll zu "entladen".
    FreeLibrary(LHdl);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Procedure RunPlugin(MainApp:TApplication;ExitPrg:TExitMidi);
begin
    if not Assigned(MOwn) then //MOwn:TApplication;
    begin
        MOwn:=Application;
        Application:=MainApp;
    end;
    frm:=TmdForm.Create(MOwn.MainForm);
    frm.ExitEvent:=ExitPrg;
    frm.Show;
    //Bis hier alles ok
end;					

1:
2:
3:

  public
      ExitEvent:TExitMidi; //Siehe oben, hier wird die Proc uebergeben
      Idx:Integer; //fuer spaetere Arrayeinbindung der THandle in der Main					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TmdForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var
   n:Integer;
begin
    n:=1; //fuer Testzwecke, ohne Effekt
    ExitEvent(n);
    //Folgendes soll passieren: in der Main den FreeLibrary in Gang setzen
    // und in der Dll geschieht in der ExitProc:
     //frm.Free; //Resourcen freigeben
end;