procedure TMainForm.FlowBroker1CreateFlowBackFlowTasks(Sender: TObject; Command: TFlowBackCommand);
var
i: integer;
lTask: TFlowTask;
begin
for i:=0 to Command.FlowTasks.Count-1 do
begin
lTask := Command.FlowTasks as TFlowTask;
lTask.Subject := '回退'+Command.FlowControl.Func.DisplayName;
lTask.Description := '';
end;
end;