Mostrar y ocultar texto de un TEdit creado en tiempo de ejecución

[wilcg]

Gracias ecfisa por contestar,

he realizado pruebas con tu código, y no va parece que falta agregarle algo para que quede bien.

creo que aquí no toma el edit indicado

Código Delphi [-]
procedure TForm1.miShowHidePwdClick(Sender: TObject);
const
  PWDCHAR: array[Boolean] of Char = (#0, '*');
var
  E: TEdit;
begin
  E:= FindComponent(PopupMenu1.PopupComponent.Name) as TEdit;
  if Assigned(E) then
    E.PasswordChar:= PWDCHAR[E.PasswordChar = #0]
end;

creo que en esta parte esta faltando algo, se indicaría el TEdit que queremos que haga la acción.

Código Delphi [-]
  E:= FindComponent(PopupMenu1.PopupComponent.Name) as TEdit;

aver si me ayudas