unit SceneControl;

interface

uses
...

type
TSceneControl = class(TComponent)
private
 FControl:TWinControl;
 FCamera:TCamera;
 FScene:TScene;
 FTextureList:TTextureList;
 FControlPointList:TControlPointList;
 procedure SetControl(AControl:TWinControl);
 procedure SceneOnMessage(Sender:TObject; Message:TMessage);
public
 constructor Create(AOwner:TComponent); override;
 destructor Destroy; override;
 property ControlPointList:TControlPointList read FControlPointList write FControlPointList;
published
 property Control:TWinControl read FControl write SetControl;
 property TextureList:TTextureList read FTextureList;
 property Camera:TCamera read FCamera;
 property Scene:TScene read FScene;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Swamp', [TSceneControl]);
end;

constructor TSceneControl.Create;
begin
inherited Create(AOwner);
FControl:=nil;
FScene:=TScene.Create;
FTextureList:=TTextureList.Create;
FCamera:=TCamera.Create;
FControlPointList:=TControlPointList.Create;
end;

destructor TSceneControl.Destroy;
begin
if FControlPointList<>nil then FControlPointList.Free;
if FCamera<>nil then FCamera.Free;
if FTextureList<>nil then FTextureList.Free;
if FScene<>nil then FScene.Free;
inherited Destroy;
end;

procedure TSceneControl.SetControl;
begin
....
end;

procedure TSceneControl.SceneOnMessage;
begin
.....
end;

end.