Delphi - he creado una clase y ..

hola!!
mi problema es que he creado un clase con la intencion de ver un cuadrado(tshape) en el formulario y luego poder moverlo.
Pero ni siquiera lo veo en el formulario,aunque no me da ningun tipo de error.La clase la creo asi:
{-- Cuadrado :objeto que dibuja un cuadrado en la pantalla --}
{-- se basa en la clase TObjeto --}
type
TCuadrado = class(TObjeto)
private
cuad:tbutton;
texto:string;
public
procedure recoge_texto(ob:tcuadrado;txt:string);
procedure dibuja_cuadrado(formulario:tform;ob:tcuadrado;coordx:integer;coordy:integer;ancho:integer);
end;

{-----------------------------------------------------------------}
Y la función dibuja_cuadrado es:
procedure TCuadrado.dibuja_cuadrado(formulario:tform;ob:tcuadrado;coordx:integer;coordy:integer;ancho:integer);
begin
ob.cuad:=tbutton.create(formulario);
ob.X:=coordx;
ob.Y:=coordy;
ob.cuad.Top:=coordy;
ob.cuad.Left :=coordx;

ob.cuad.Width :=ancho;
end;
end.
........... sencillo,¿no? ,..pues algo falla y os agradeceria muchisimo
que me echarais un cables....muchas gracias :)

El viejo truco de la diferencia entre el objeto parent y el owner...

Coloca ob.Owner:=Formulario;

Deberias hechar una mirada a las ayudas en el apartado de crear controles personalizados para mas info...

Muchas gracias por contestar tan rápido ,lo probaré y ya te cuento.