GLScene и ДЛЛ

[CrHD]

Приветствую
Дело такое... Этот же код прекрасно работает в чистом, тестовом проекте.
Проверяю его в основном, и если в длл есть добавление узла (Pipe.AddNode(x,y,z))-то выскакиваем в EInvalidCast'Invalid class typecast' и показывает в GLMisc на функцию

function TGLNodes.Add: TGLNode;
begin
	Result:=(inherited Add) as TGLNode;
end;

В длл так (не стал вставлять сюда описание процедур, которые не относятся к делу, сейчас пытаюсь выполнить только Build2):

library ToRS;

uses
ShareMem,SysUtils,Classes,GLScene,GLObjects, GLMisc, GLWin32Viewer, GLExtrusion, StdCtrls,GLGeomObjects,PluginInterface;

type
TTubeCurve=class (TInterfacedObject, ITubeCurve)
private
Pipe:TGLPipe;
Pipe1:TGLPipe;
Pipe2:TGLPipe;
****Disk1:TGLDisk;
****Disk2:TGLDisk;
****HeadX, HeadY, HeadZ, PrevAngle,AngleCurve,AngleRotate,VectorX,VectorY,VectorZ,Diameter,Thickness,Length,TX,TY,TZ:Real;
Side:byte;
x,y,z:integer;

procedure Build2(NewPipe:TGLPipe; nx,ny,nz:integer);

public
 destructor Destroy; override;
end;

const
name='Отвод круглого сечения';

//{$R *.res}

function CreateTubeCurve:iTubeCurve;
begin
result:=TTubeCurve.Create;
end;

procedure TTubeCurve.Build2(NewPipe: TGLPipe; nx, ny, nz:integer);
begin
x:=nx;
y:=ny;
z:=nz;
Pipe:=NewPipe;
Pipe.Radius:=1;
Pipe.parts:=[ppOutside,ppInside];
Pipe.Slices:=32;
Pipe.SplineMode:=lsmLines;
Pipe.AddNode(x,y,z);
Pipe.AddNode(0,0,0);
end;

exports
CreateTubeCurve;

Интерфейс

type
  ITubeCurve=interface
     procedure Build2(NewPipe:TGLPipe; nx,ny,nz:integer);
   end;

В .exe соответственно:

 TC:ITubeCurve;

...

procedure TForm1.Button4Click(Sender: TObject);
var
CreateTubeCurve:TCreateTubeCurve;
h:THandle;
x:integer;
Pipe:TGLPipe;

begin

 h:=LoadLibrary(PChar('TORS.dll'));
 CreateTubeCurve:=getprocaddress(h,'CreateTubeCurve');
 TC:=CreateTubeCurve;
 Pipe:=TGLPipe.CreateAsChild(Form1.GLScene1.Objects);
 TC.Build2(Pipe,1,5,1);
end;

Уже весь мозг сломал себе >_<'

[CrHD]

Решение - галки 'Build with runtime packages' в приложении и длл
Уж не помню, когда и зачем их отключил >_<