Управление объектом приложения из длл (Plugin)

[Человек_Борща]

type
  IMyObject = interface(IInterface)
     [GUID лень придумывать от руки]
     procedure method1; stdcall;
     function sum(a,b:Integer):Integer; stdcall;
  end;

  TMyObject = class(TInterfacedObject, IMyObject)
   
     procedure method1; stdcall;
     function sum(a,b:Integer):Integer; stdcall; 

   //Конструкторы, прочая лабуда...
   end;


   function createMyObject:IMyObject;


//Реализация
function createMyObject:IMyObject;
begin
  Result := TMyObject.Create;
end;


procedure TMyObject.method1;
begin
 showMessage('123');
end;

function TMyObject.sum(a,b:Integer):Integer; stdcall; 
begin
 REsult := a+b;
end;

//test

io:IMyObject;

io:=createMyObject;
io.method1;
showMessage(io.sum(4,6));

Интерфейс и является адаптером для объекта.

[IvaniuS]

Спасибо, теперь действительно есть над чем работать а то все до чего меня хватило:
Первая часть

  Log('LoadSettings',true);
  Debug:=true;
  SuperDebug:=false;
  if not Assigned(SLVariables) then SLVariables:=TStringList.Create;
  SLVariables.AddObject('bDebug',TObject(@Debug));
  SLVariables.AddObject('bSuperDebug',TObject(@SuperDebug));
  SendData(0,(@SLVariables));

в DLL Plugin:

Function SendData(Code: Cardinal; p1, p2, p3: pointer): Pointer; Stdcall;
Var
  i: integer;
  SLVariables:TStringList;
Begin
  Case code Of
    0: SLVariables:=TStringList(p1^);
  End;
  for I := 0 to SLVariables.Count-1 do
  begin
    case SLVariables.Strings[i][1] of
      'b':MsgPrint(SLVariables.Strings[i],BoolToStr(Boolean(pointer(SLVariables.Objects[i])^)));
    end;
  end;
End;

Вашим кодом выше компилятор PaxCompiler вешается, там Delphi 2010, а по моему в нем не было еще интерфейсов.