一个线程的问题

    因为数据量很大，为了等待查询数据，在事件中创建了一个线程和一个查询数据的函数，线程函数就是出现一个等待的窗口，如何实现先出现先出现等待窗口，等数据查询完后关闭。
  例如
  procedure Btn1Click（）
   begin
       //创建等待窗口线程
     CreateThread();
       //加载数据
     LoadData();
   end;
  我知道这样写对不对，这段代码是同时执行的，实验的结果是先把数据加载完后才出现等待窗口，还想就是在数据加载完后关闭等待窗口，先调用TerminedThread（），然后再close窗体？小弟不才，大虾们有什么好的办法赐教一下。