как скрывать пароли звездочками

[Lifefine]

Добрый вечер! Люди помогите пожалуйста,у меня такой вопрос как скрывать пароли, например,при вводе 1111, отображало *****
Вот мой код, у меня пароли виден, но не знаю как скрыть:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Form1:TForm2;
   k:integer;
implementation

{$R *.dfm}
 uses admin_window;
procedure TForm2.Button1Click(Sender: TObject);
begin
Edit1.SetFocus;
if (Edit1.Text='admin') and (Edit2.Text='30111984') then
begin
  ShowMessage('Приветствие!');
  Edit1.Enabled:=false;
  Edit2.Enabled:=false;
  Form4.Visible:=true;
  Form1.Visible:=false;
  Form2.Visible:=false;

end
else
begin
  k:=k+1;

  if (k=1) or (k=2) then ShowMessage('Неверный логин или пароль. Повторите еще раз');

  Edit2.SetFocus;
  Edit2.Text:='';

  if k=2 then ShowMessage('Последняя попытка');
  if k=3 then Form1.Close();


end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Close;
end;

end.

[spamer]

У TEdit есть свойство PasswordChar , вот в нем введи символ который ты хочешь видеть при вводе своего пароля.

[Lifefine]

Сообщение от spamer

У TEdit есть свойство PasswordChar , вот в нем введи символ который ты хочешь видеть при вводе своего пароля.

Можно кусок примера, как и откуда взять свойство =)

[Скандербег]

Пардон, залез в конец очереди
Ладно, добавлю. Вообще то, свойство это можно увидеть в Object Inspector. Код здесь не очень то при чем.

[Lifefine]

я добавил

if (Edit1.Text='admin') and (Edit2.PasswordChar='30111984') then

но все ровно выводит видимый пароль(

[spamer]

Можно кусок примера, как и откуда взять свойство =)

Епт какой еще кусок кода, в инспекторе объектов найди это свойство у компонента Edit, введи символ например "*" - и будет тебе твой пароль отображаться звездочками.

[Lifefine]

Сообщение от spamer

Епт какой еще кусок кода, в инспекторе объектов найди это свойство у компонента Edit, введи символ например "*" - и будет тебе твой пароль отображаться звездочками.

Спасибо большое за помощь! Все получилось! Я новичок, учусь))

[FaTaL]

Тогда лучше учись по книге Библия Delphi М.Фленова. Многому очень быстро научишься и поймёшь.

[MyIE]

Вот хорошая книжка, тоже "Билия делфиста", ток не помню, кто написал)
В трех частях, есть примеры для каждой главы.