报错后停在了for上面
procedure TMAINFORM.BizFormShow(Sender: TObject);
var
lCurContext : TContextCurrent;
i : integer;
begin
try
lCurContext := TContextCurrent.Create(context);
// lFGS := lCurContext.Organ.DisplayName ;
for i := 0 to TSystemCore.Operator.PositionCount-1 do
begin
///
end;