procedure TMainForm.ModifyFlowSubject(Command: TFlowOutCommand);
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;
end;
procedure TMainForm.FlowDDLRCreateFlowOutFlowTasks(...);
begin
ModifyFlowSubject(Command);
end;