参考代码
procedure TMainForm.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
lFlowTask:TFlowTask;
begin
lFlowTask := Command.FlowTasks.FindFlowTask('JDLCZZJHJ');
if lFlowTask <> nil then
begin
lFlowTask.Priority := TTaskPriority.tpHigh;//事件表的转换值
end;