请问怎么实现这样的功能

Question

BUTTON1.onclickbegin
  edit1.Text :='1234';//开始改变EDIT1的值
  timer1.Enabled := true;
  //等待一个定时器处理的结果  if edit1.Text = '123' then
    //继续操作
end;关键是delphi是一行一行执行的,不要告诉我用sleep,因为那样,定时器的也停了下来,我的意思就是能在定时器生效后给1分钟等待结果.
不知道是否说清楚了意思,谢谢各位!

Answer 1

定义一下实例变量 ib_ttt在定时器里对它付值 ib_ttt := truebegin
  edit1.Text :='1234';//开始改变EDIT1的值
  timer1.Enabled := true;
  //等待一个定时器处理的结果
  while not ib_ttt do 
    Application.ProcessMessages;
  if edit1.Text = '123' then
    //继续操作
end;

Answer 2

Application.ProcessMessages;这句话的意思就是等待消息吧?好象cpu使用率很高啊,呵呵，谢谢!