Ungültige Zeigeroperation Plugin mit interface

[geskill]

Hallo,
ich habe ein bischen von diesem Beispiel abgekupfert, leider funktioniert es nicht ganz.

Hier im Code wo Error steht, wird versucht auf eine Komponente zuzugreifen. Es wird versucht die Eingabe zu ändern (Value), jedoch funktioniert das nicht. Die Visuelle Komponente wird unsichtbar, beim schließen des Programms gibt es den Fehler: "Ungültige Zeigeroperation". Seltsamerweise steht in der Messagebox aber die richtige Eingabe.

Ich habe es schon mir ShareMem versucht, das bringt auch nichts.

Könnte der fehler darin liegen das ich dem Edit control als Text property einen widestring gebe ?

Delphi-Quellcode:

procedure Tblabla.Exec(const ComponentManager: IComponentManager);
var s:WideString;
begin
  ShowMessage(ComponentManager.Control[0].Value + #13 + 
              IntToStr(ComponentManager.ControlCount)); // Error

  s := 'hans';

  ComponentManager.Control[0].Value := s;
end;

Delphi-Quellcode:

  IComponentManager = interface
    ['{E9432D30-D4CA-4045-BEA3-55C02E56243A}']
      function GetControl(Index:Integer):IBasic;
      procedure SetControl(Index: Integer; AControl: IBasic);
      property Control[Index:Integer]:IBasic read GetControl write SetControl;
      function ControlCount:Integer;
  end;

  IBasic = interface
    ['{DE8F253F-D695-41D4-A350-3CF191644466}']
      function GetIComponent:TIComponent;
      procedure SetIComponent(IComponent: TIComponent);
      function GetName:WideString;
      procedure SetName(AName:WideString);
      function GetTitle:WideString;
      procedure SetTitle(ATitle: WideString);
      function GetHint:WideString;
      procedure SetHint(AHint: WideString);
      function GetValue:WideString;
      procedure SetValue(AValue:WideString);
      
      property IComponent:TIComponent read GetIComponent write SetIComponent;
      property Name:WideString read GetName write SetName;
      property Title:WideString read GetTitle write SetTitle;
      property Hint:WideString read GetHint write SetHint;
      property Value:WideString read GetValue write SetValue;
  end;

Delphi-Quellcode:

  TComponentManager = class(TInterfacedObject, IComponentManager)
    private
      function GetControl(Index: Integer):IBasic;
      procedure SetControl(Index: Integer; AControl: IBasic);
    public
      property Control[Index:Integer]:IBasic read GetControl write SetControl;
      function ControlCount:Integer;

//[...]
function TComponentManager.GetControl(Index:Integer):IBasic;
begin
  result := TIBasic(FControlList[Index]);
end;

procedure TComponentManager.SetControl(Index: Integer; AControl: IBasic);
begin
  FControlList[Index] := TIBasic(AControl);
end;

Delphi-Quellcode:

  TIBasic = class(TInterfacedObject, IBasic)
    private
      function GetIComponent:TIComponent;
      procedure SetIComponent(IComponent: TIComponent);
      function GetName:WideString;
      function GetTitle:WideString;
      procedure SetTitle(ATitle: WideString);
      function GetHint:WideString;
      procedure SetHint(AHint: WideString);
    protected
      function GetValue:WideString; virtual; abstract;
      procedure SetValue(AValue:WideString); virtual; abstract;
      procedure SetName(AName:WideString);
    public
      property IComponent:TIComponent read GetIComponent write SetIComponent;
      property Name:WideString read GetName write SetName;
      property Title:WideString read GetTitle write SetTitle;
      property Hint:WideString read GetHint write SetHint;
      property Value:WideString read GetValue write SetValue;
  end;

Delphi-Quellcode:

  TIEdit = class(TIBasic)
    private
      FEdit:TEdit;
      procedure lClearClick(Sender: TObject);
    protected
      function GetValue:WideString; override;
      procedure SetValue(AValue:WideString); override;
      procedure SetName(AName:WideString);
  end;

//[...]
function TIEdit.GetValue;
begin
  result := FEdit.Text;
end;

procedure TIEdit.SetValue(AValue: WideString);
begin
  FEdit.Text := AValue;
end;