delphi???????!!!!!!!!!!!

Question

edit1 edit2 edit3三个控件
要实现以下功能：
在EDIT1中输入 0 ，则EDIT2中显示输入的0的个数
如输入0 EDIT2显示1，再次输入0 EDIT2显示2
在EDIT1中输入 1 ，则EDIT3中显示输入的1的个数
如输入1 EDIT3显示1，再次输入1 EDIT3显示2

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var i,i_0,i_1:integer;
begin
  i_0:=0;
  i_1:=0;
  if key='0' then i_0:=1
  else if key='1' then i_1:=1;
  for i:=1 to length(edit1.Text) do begin
    if edit1.Text[i]='0' then inc(i_0)
    else if edit1.Text[i]='1' then inc(i_1);
  end;
  edit2.Text:=inttostr(i_0);
  edit3.Text:=inttostr(i_1);
end;