>>383
＞エラーは出ないけど、デストラクタは二回呼ばれています。

呼ばれなくなりました！
function TNodeComponent._AddRef: Integer;
begin
　Result := -1;
end;

function TNodeComponent._Release: Integer;
begin
　Result := -1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　NodeIntf: INodeData;
　NodeComp: TNodeComponent;
begin
　NodeComp := TNodeComponent.Create(nil);
　NodeIntf := NodeComp;

　Button1.Caption := NodeIntf.ColumnText[0];
　NodeComp.Free;
end;