命令如下：
procedure TForm_main.Button_ssqClick(Sender: TObject);
begin
WaitAni.Enabled:=True; //等待动画启动
WaitAni.Visible:=True; //等待动画显示
//建立新线程
TThread.CreateAnonymousThread(
procedure
begin
with (Sender as TButton) do
Label_title.Text:=Text;
numbers.Execute; //Actionlist中的一个Action
getdata.Execute; //Actionlist中的一个Action
WaitAni.Visible:=False; //等待动画隐藏
WaitAni.Enabled:=False; //等待动画结束
end).Start;
end;
现在的问题就是线程启动后程序会闪退，貎似是线程Actionlist中的Action不分先后运行了。
改在不用线程，动画无法显示：
procedure TForm_main.Button_ssqClick(Sender: TObject);
begin
WaitAni.Enabled:=True;
WaitAni.Visible:=True;
Application.ProcessMessages;
with (Sender as TButton) do
Label_title.Text:=Text;
numbers.Execute;
getdata.Execute;
WaitAni.Visible:=False;
WaitAni.Enabled:=False;
end;

用TTask.Run();试试?

最后只能在所有循环中加上application.processmessages

多线程和并行库本来就是为了同步执行才设计出来的.既然你所有都要按顺序执行,你还用多线程意义不大了吧.
实在要等待的话,就用TCriticalSection分步执行吧.