[[Al González]]

¡Buen día a todos!

Aquí otra manera de implementarlo:

TMiForma = Class (TForm)
  ...
private
  { Private declarations }
public
  { Public declarations }

  Procedure Mostrar (Const Tabla :String);
end;
...
Implementation
...
Procedure TMiForma.Mostrar (Const Tabla :String);
Begin
  XCosa := Tabla;  { Uso del parámetro }
  Show;
End;

...
MiForma.Mostrar ('Productos');
...

Espero esto sea de utilidad. Seguimos en contacto.

Al González .