如何让这段程序在运行中把label的caption显示出来啊？

Question

label1.caption:='正在恢复数据，请等待！'
 adoconnection1.Close;
 sqlstr:='Provider=SQLOLEDB.1;Persist Security Info=False;user id=sa;data source=gl2';
 adoconnection1.ConnectionString:=sqlstr;
 
 adoconnection1.Open; //打开库连接
 
 sqlstr:='RESTORE DATABASE lib FROM DISK = ''c:\aaa.bak''';
 adoquery1.Close;
 adoquery1.sql.Add(sqlstr);
 
 adoquery1.execsql;  //进行恢复数据操作
 
 label1.caption:='数据恢复完成！'  程序执行时，'正在恢复数据，请等待！'　这段文字显示不出来，是一个白条，我想是程序太忙的原因。只有等数据恢复完成后，才直接显示　‘数据恢复完成’  ,如何才能让第一个caption显示出来啊？

Answer 1

label1.caption:='正在恢复数据，请等待！'
label1.update;
 adoconnection1.Close;
 sqlstr:='Provider=SQLOLEDB.1;Persist Security Info=False;user id=sa;data source=gl2';
 adoconnection1.ConnectionString:=sqlstr;
 
 adoconnection1.Open; //打开库连接
 
 sqlstr:='RESTORE DATABASE lib FROM DISK = ''c:\aaa.bak''';
 adoquery1.Close;
 adoquery1.sql.Add(sqlstr);
 
 adoquery1.execsql;  //进行恢复数据操作
 
 label1.caption:='数据恢复完成！'

Answer 2

或者 application.ProcessMessages;

Answer 3

都说完了,application.ProcessMessages;
帮你顶