Label在一个流程的不同阶段显示问题

Question

要达到这样一个目的:
  Label1.caption := '22222222222222';
  Sleep(2000);
  Label1.Caption := '9999999999999'在测试的时候,第一个赋值语句就好像没有工作一样,Lable1.caption在2000毫秒的时间里面是空白的,只有把Sleep(2000)执行完毕后才能实现label2的第二个赋值!现在顾客需要在两秒钟前看到第一个赋值的内容,两秒钟后看到第二个赋值的内容,有什么方法可以实现的,那个高手指导指导

Answer 1

Label1.caption := '22222222222222';
Application.ProcessMessages;
Sleep(2000);
Label1.Caption := '9999999999999'

Answer 2

这样就可以了...
Label1.Update;

Answer 3

Label1.caption := '22222222222222';
Application.ProcessMessages;
Sleep(2000);
Label1.Caption := '9999999999999';
Application.ProcessMessages;

Answer 4

Label1.caption := '22222222222222';
 Label1.Update; //最简单的...
  Sleep(2000);
  Label1.Caption := '9999999999999'