procedure TFrmMain.FormCreate(Sender: TObject);
var
bRet: boolean = False;
i:integer;
begin
ActivePanel:=@pnZhenKong;
ActiveLabel:=@lbZhenKong;
lbZhenKongClick(Self);
if LoadCmdFile then
log('Load cmd file OK')
else
begin
log('load cmd file fail',clRed);
exit;
end;
if LoadSysFile then
log('load sys file OK')
else
begin
log('load sys file Fail',clRed);
exit;
end;
CreateCiFenXiJiSuanBlock;
CreateShuLiuHuanJingBlock;
CreateFaMenAndKaiGuanBlock;
CreateFenZiBengBlock;
CreateZhenKongJiLED;
CreateLiuLiangJiBlock;
CreateDianYuanBlock;
CreateFuZhuKaiGuan_ShuRuBlock;
CreateFuZhuMoNi_ShuRuBlock;
CreateFuZhuMoNi_ShuChuBlock;
CreateBaTaiWenKongBlock;
CreateBuJinDianJiBlock;
for i:=0 to Length(MyCom)-1 do MyCom[i].Start;
Delay(500);
DJ2HSS442_RC_Init;
end;