显示编辑框密码

  if ToolButton1.Down then
    begin
      Edit1.Cursor:=crArrow;
      Edit1.Hint:=Edit1.Text;
    end
    else
    begin
      Edit1.Cursor:=crDefault;
      Edit1.Hint:='';
    end;