[modulay]

Hola amigos.
Soy un poco novato con delphi y con la POO y tengo un problema que he intentado solucionar por diferentes vías,aunque sin éxito.Les cuento.
Tengo una clase heredada de TPanel a la que le he añadido algunos atributos.

Código Delphi [-]
 
unit Tbarco;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, StdCtrls ;
type
Tbarco1 = class(TPanel)
private
dim : integer;
vert : boolean;
pro,pop : TPoint;
public
property dimension : integer read dim write dim;
property vertical : boolean read vert write vert;
property proa : TPoint read pro write pro;
property popa : TPoint read pop write pop;
procedure inicializa(dimens : integer);
end;
 
implementation
procedure Tbarco1.inicializa(dimens : integer);
begin
dim := dimens;
vert := false;
pro := Point(0,0);
pop := Point(0,0);
end;
end.

Mi propósito es el poder arrastrar,ubicar y poder rotar objetos de esta clase por el form.
Tengo también un objeto TImage el cual va insertado en mi objeto Tbarco1 y la manera que uso para poder mover el conjunto sobre el form es la siguiente:

Código Delphi [-]
 
barco1 := Tbarco1.Create(form1);
b1 := TImage.create(form1);
b1.Picture.LoadFromFile('1h.bmp');
b1.OnMouseDown := Responsability2Parent;
barco1.OnMouseDown := MoveControl;
b1.OnDblClick := barcoDblClick;
barco1.InsertControl(b1);
Form1.InsertControl(barco1);
 
//...y las rutinas para mover el objeto
 
procedure TForm1.MoveControl(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if permiso then ReleaseCapture;
if Sender is TWinControl then (Sender as TWincontrol).Perform(WM_SYSCOMMAND,SC_UNDOCUMENTED,0);
end;
procedure TForm1.Responsability2Parent(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.MoveControl((Sender as TImage).Parent,Button,Shift,x,y);
end;
 
//...y las rutinas para rotarlo
 
procedure TForm1.Rotar(BMPOrigen, BMPDestino:TBitmap);
var
f,c:integer;
Ancho,Alto:integer;
tmpBMP: TBitmap;
begin
tmpBMP:=TBitmap.create;
with tmpBMP do
begin
Width:=BMPOrigen.height;
Height :=BMPOrigen.width;
end;
Ancho:=BMPOrigen.Width-1;
Alto :=BMPOrigen.Height-1;
for f:=0 to Alto do
begin
for c:=0 to Ancho do
begin
tmpBMP.Canvas.Pixels[Alto-f,c]:=BMPOrigen.Canvas.Pixels[c,f];
Application.processmessages;
end;
end;
BMPDestino.Assign(tmpBMP);
tmpBMP.Free;
end;
 
procedure TForm1.barcoDblClick(Sender: TObject);
begin
rotar((Sender as TImage).Picture.bitmap,(Sender as TImage).Picture.bitmap);
tablero.Refresh;
end;

Es en esta última TForm1.barcoDblClick(Sender: TObject); donde tengo el problema.
Quiero poder acceder desde ella a los atributos de mi objeto Tbarco1,pero al intentarlo haciendo (Sender as Tbarco1).atributo... me da error de typecast en ejecución.Creo que más o menos entiendo el motivo,ya que el evento DblClick se produce sobre el TImage(he probado a asociar la rutina al objeto Tbarco1 en vez de al de tipo TImage,pero no se produce evento alguno al clikear sobre él).
La verdad es que el diseño que he hecho de la clase Tbarco1 no me convence demasiado,aunque no doy para mucho más.
Desde ya muchas gracias.
Un saludo