Tframe mostrar en momento indicado

[vtdeleon]

Saludos

Tengo 5 Tframe: Frame1...Frame5, un Formulario en el cual muestro estos frames.
Para crear y mostrar uno de ellos (segun se el caso):

Código Delphi [-]
procedure Tform1.Button1Click(Sender: TObject);
var
frame:tframe:
begin
frame:=frame1.create(nil);
frame.parent:=self;
frame.top:=5;
frame.left:=15;
frame.show;
end;

y asi cada frame un boton con estas rutinas.

El prob es el siguiente, quiero crear un procedimiento publico en la cual pueda hacer referencia a cualquier frame y este aparezca. Ej:

Código Delphi [-]
procedure crearframe(frames:tframe, ctr:twincontrol);
var
frame:tframe:
begin
frame:=frames.create(nil);
frame.parent:=crt;
frame.top:=5;
frame.left:=15;
frame.show;
end;
{***************************}
procedure Tform1.Button1Click(Sender: TObject);
begin
crearframe(tframe1,panel1);
// o puede ser
crearframe(frame2,panel1);
// y asi, segun se el caso 
end;

Esto lo hago para no tener que repetir el mismo codigo. El codigo anterior da error de Access Violation. He probado con poner la variable Frames:tcustomframeclass y cambiar un poco el codigo, pero aun asi me da el mismo error.

Tengo una unidad(UNIT) en la que tengo todos los procedimientos y funciones que regularmente utilizo, lo pongo en Use y listo, lo puedo usar.

cualquier pregunta, Estoy por aqui.

Grax por su tiempo