我想在EDIT中录入密码时，光标在EDIT中不动，也不显示输入的内容。　9(9分)

up.....

var
cc:char;
procedure TForm1.Edit1KeyPress(Sender: TObject
var Key: Char);
begin
//先将内容取得,以备后用
cc:=key;
key:=#0;
end;

unit Unit1;

interface

uses StdCtrls, Classes, Controls, Forms;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Edit1KeyPress(Sender: TObject
var Key: Char);
private
FPassword: String;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject
var Key: Char);
begin
FPassword := FPassword + Key;
Key := #0;
end;

end.

截获输入，然后不显示不就得了[]

over...