Pasar una Clase por parametro

[ecfisa]

Hola.

Si no entiendo mál lo que buscas, por ejemplo sería:

Código Delphi [-]
procedure TForm1.SendClassProc(AClass: TFormClass);
begin
  with AClass.Create(nil) do
  begin
    ..
    ShowModal;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
   SendClassProc(TForm);

Si desearas que el procedimiento pueda recibir cualquier clase tendrías que declarar el argumento del procedimiento de tipo TClass.

Saludos.