简单问题，就是不知道怎么做。

Question

在一个窗体上放有：
有一个Button1：TButton;
有一个ListBox1: TListBox;问怎样动态读取Button1的ModalResult到ListBox1中？简单吧。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
 i :=  button1.ModalResult;
 ListBox1.Items.Add(inttostr(i));
end;end.

Answer 2

procedure TForm1.AddModalResult(button1: TButton; ListBox1: TListBox);
var
  str: String;
begin
  case Button1.ModalResult of
    mrNone:
      str := 'mrNone';
    mrOk:
      str := 'mrOk';
    mrCancel:
      str := 'mrCancel';
    mrAbort:
      str := 'mrAbort';
    mrRetry:
      str := 'mrRetry';
    mrIgnore:
      str := 'mrIgnore';
    mrYes:
      str := 'mrYes';
    mrNo:
      str := 'mrNo';
    mrAll:
      str := 'mrAll';
    mrNoToAll:
      str := 'mrNoToAll';
    mrYesToAll:
      str := 'mrYesToAll';
  end;
  ListBox1.Items.Add(str);
end

Answer 3

to meiqingsong(阿飛) 
我怕的酒是麻烦呀，老大、。