[dec]

Hola,

Prueba con esto.

Código Delphi [-]
procedure Tprincipal.jnuevoClick(Sender: TObject);
begin
  if not Assigned(panttruco) then
    panttruco := Tpanttruco.Create(Self);
  panttruco.Show;
end;