有没有办法让 隐藏的label 在整段代码执行完之前，先显示出来？

Question

有没有办法让 隐藏的label 在整段代码执行完之前，先显示出来？  有段很简单的代码，我一开始先把Label1隐藏起来，
点击登录后，我希望先把Label1显示出来，给个提示说"正在连接数据库"等等结果我的代码中,会先把下面的代码显示完后，Label1才显示出来，问该怎么改程序呢？  Label1.Visible:=true;
  try
   //打开数据库
   .......
  except
   showmessage('        无法连接数据库');
  end;

Answer 1

Label1.Visible:=true;
Application.ProcessMessages;
  try
   //打开数据库
   .......
  except
   showmessage('        无法连接数据库');
  end;

Answer 2

Label1.Visible:=true;
Repaint; //添加

Answer 3

我是这样调试的：procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Visible:= true;
  Repaint;
  Sleep(10000);
  Application.ProcessMessages;
  Label1.Visible:= false;
  Repaint;
end;