unit mT3DObjekt;

T3DObjekt = class (TObject)

private
  m3DModell : T3DModell;
  Position : TKoordinate;
  Rotation : TRotation;
public
  constructor Create;
  destructor Destroy; Override;
  procedure Draw;
  procedure Set3DModell(const a3DModell : T3DModell );
end;

constructor T3DObjekt.Create;
begin
  inherited Create;
end;

destructor T3DObjekt.Destroy;
begin
  inherited destroy;
end;

procedure T3DObjekt.Draw;
begin
  m3DModell.Draw(position.X,position.y,position.Z,rotation.Alpha,rotation.Beta,rotation.Gamma,true);
end;

procedure T3DObjekt.Set3DModell(const a3DModell : T3DModell );
begin
  m3dmodell:=a3dmodell;
end;
end;

Der Aufruf:

unit Unit1;

my3dmodell:=t3dmodell.Create(extractfiledir(ExpandFileName(ParamStr(0)))+
                             '\bottle\bottle.i3D');

my3dobjekt:=t3dobjekt.Create;
my3dobjekt.Set3DModell(my3dmodell);

procedure T3DObjekt.Set3DModell(const a3DModell : T3DModell );
begin
  m3dmodell:=a3dmodell;
end;
end;