procedure TZLJLBGQCFORM.FlowBrokerAfterNotify(Sender: TObject; Command: TFlowNotifyCommand);
var
i: integer;
lTask: TFlowTask;
begin
for i:=0 to Command.FlowTasks.Count-1 do
begin
lTask := Command.FlowTasks as TFlowTask;
lTask.Subject := '修改主题';
lTask.Description := '修改描述';
end;