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

[roman]

Código Delphi [-]
type
  TFrameClass = class of TFrame;

function CreateFrame(FrameClass: TFrameClass; Parent: TWinControl);
begin
  Result := FrameClass.Create(nil);
  Result.Propiedad := Valor;
  Result.Parent := Parent;
end;

Nota que además de la definición de TFrameClass, en lugar de un procedimiento uso una función que regresa el frame creado para así tener una referencia al frame que pueda usar para destruirlo una vez que no lo necesite.

// Saludos

[vtdeleon]

Saludos.

Muchisimas Gracias Roman por tu ayuda y atencion