Dibujar laberinto en formulario

[bochan]

Hola!!

Hombre los TShapes solo me ofrecen dibujar cuadrados,rectagulos y no sé que más... El tema esta en que yo he creado el laberinto a mano, creando los frames 1 a 1, lo que pasa q asi es una forma poco elegante y además las dimensiones del laberinto se hace en tiempo de ejecucion. Ademas quiero que cada casilla tenga un valor, y eso con TShape como lo haria??

Muchas Gracias por la ayuda!

Edito:
He probado a crear TShape de forma dinamica, tampoco puedo!!! El constructor me pide un TComponent igual que el TFrame..
Lo he creado asi:

TShape *aux=new TShape(this??);//Sigo sin saber que poner
  aux->Shape=stRectangle;
  aux->Top=250;
  aux->Height=320;
  aux->Visible=true;

Y sigo son ver nada, ni Shape ni Frame... como narices creo este tipo de cosas de forma dinamica???

SAludos