procedure TMainForm.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
i : Integer;
lFlowTask: TFlowTask;
begin
for i := 0 to Command.AllowFlowTasks.Count -1 do
begin
lFlowTask := Command.AllowFlowTasks;
lFlowTask.Subject := lFlowTask.ProcUnit.DisplayName + ' ' + SysUtils.IntToStr(i);
end;
end;