for i:=0 to Command.FlowTasks.Count-1 do
begin
lFlowTask := Command.FlowTasks as TFlowTask;
s := lFlowTask.Subject;
for j:=0 to lFlowTask.Executors.Count-1 do
begin
lOrgURL := lFlowTask.Executors[j] as Org.TOrgURL;
s := s+#13#10+lOrgURL.DeptID+'|'+lOrgURL.PositionID+'|'+lOrgURL.PersonID;
end;
Dialogs.ShowMessage(s);
end;