showmessage问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('111111');
  memo1.Lines.Add('~~~~~~~~~');
end;当showmessage('1111111')后,如果不安掉确定，后面的语句：
memo1.Lines.Add('~~~~~~~~~');是不会执行的怎么样才能实现跳出一个提示框，不按确定，后面的语句照样执行.

Answer 1

方法1
把showmessage放到最后
方法2
做一个窗体，上面放一个label用来显示提示信息，显示的时候，不要showmodal，用show;
方法3
提示信息，不用showmessage，直接显示到窗体上的lable中。

Answer 2

也可以这样做，不过不推荐,timer的时间设置的短点。
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
   label1.Caption := 'sdfasd';
   Timer1.Enabled := true;   label1.Caption := 'sadf' ;end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Timer1.OnTimer := nil ;
  showmessage('adsfasdf');
  //  timer1.Enabled := false;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 50;
end;end.