Christmas Tree Code

(*[...omissi...]*)

function ReadPacket(var s:string): Boolean;
    function _internal_LoadAAST(var b: String): Boolean;
    begin
        try
            Result := True;
            pkVCF.AAST := StrToInt(Copy(b, 1, 1));
            Delete(b, 1, 1);
        except
            on E: Exception do begin
                Result := False;
            end;
        end;
    end;
(*[...omissi...]*)
begin
    Result := False;
    if (_internal_LoadAAST(s)) then begin
        if (_internal_LoadVCF(s)) then begin
            if (_internal_LoadFEV1(s)) then begin
                if (_internal_LoadPEF(s)) then begin
                    if (_internal_LoadF75(s)) then begin
                        if (_internal_LoadF2575(s)) then begin
                            if (_internal_LoadFET(s)) then begin
                                if (_internal_LoadPEFF(s)) then begin
                                    if (_internal_LoadFVVC(s)) then begin
                                        if (_internal_LoadFVV1(s)) then begin
                                            if (_internal_LoadFEV1p(s)) then begin
                                                if (_internal_LoadFEV6(s)) then begin
                                                    if (_internal_LoadFEV6p(s)) then begin
                                                        if (_internal_RemoveFree(s)) then begin
                                                            if (_internal_LoadF25(s)) then begin
                                                                if (_internal_LoadF50(s)) then begin
                                                                    if (_internal_LoadVEXT(s)) then begin
                                                                        if (_internal_LoadFIVC(s)) then begin
                                                                            if (_internal_LoadFIV1(s)) then begin
                                                                                if (_internal_LoadFIV1p(s)) then begin
                                                                                    if (_internal_LoadPIF(s)) then begin
                                                                                        if (_internal_LoadIT(s)) then begin
                                                                                            if (_internal_LoadELA(s)) then begin
                                                                                                if (_internal_LoadFVVC2(s)) then begin
                                                                                                    if (_internal_LoadFVV12(s)) then begin
                                                                                                        if (_internal_LoadPEFF2(s)) then begin
                                                                                                            if (_internal_LoadFVV6(s)) then begin
                                                                                                                if (_internal_LoadFVV62(s)) then begin
                                                                                                                    if (_internal_LoadVCC2(s)) then begin
                                                                                                                        if (_internal_LoadFEV3(s)) then begin
                                                                                                                            if (_internal_LoadFEV3p(s)) then begin
                                                                                                                                if (_internal_RemovePar(s)) then begin
                                                                                                                                    if (_internal_LoadMVVCalc(s)) then begin
                                                                                                                                        if (_internal_LoadEVC(s)) then begin
                                                                                                                                            if (_internal_LoadIVC(s)) then begin
                                                                                                                                                if (_internal_LoadIC(s)) then begin
                                                                                                                                                    if (_internal_LoadVCC(s)) then begin
                                                                                                                                                        if (_internal_LoadERV(s)) then begin
                                                                                                                                                            if (_internal_LoadTV(s)) then begin
                                                                                                                                                                if (_internal_LoadMV(s)) then begin
                                                                                                                                                                    if (_internal_LoadRR(s)) then begin
                                                                                                                                                                        if (_internal_LoadTI(s)) then begin
                                                                                                                                                                            if (_internal_LoadTE(s)) then begin
                                                                                                                                                                                if (_internal_LoadVTTI(s)) then begin
                                                                                                                                                                                    if (_internal_LoadTETI(s)) then begin
                                                                                                                                                                                        if (_internal_LoadMVV(s)) then begin
                                                                                                                                                                                            if (_internal_RemovePar14(s)) then begin
                                                                                                                                                                                                if (_internal_LoadNUMVT(s)) then begin
                                                                                                                                                                                                    if (_internal_RemoveFree2(s)) then begin
                                                                                                                                                                                                        if (_internal_LoadNUMEXP(s)) then begin
                                                                                                                                                                                                            if (_internal_RemoveFree3(s)) then begin
                                                                                                                                                                                                                if (_internal_LoadNUMINS(s)) then begin
                                                                                                                                                                                                                    if (_internal_RemoveFree4(s)) then begin
                                                                                                                                                                                                                        if (_internal_LoadNUMEXP2(s)) then begin
                                                                                                                                                                                                                            if (_internal_RemoveFree5(s)) then begin
                                                                                                                                                                                                                                if (_internal_LoadNUMINS2(s)) then begin
                                                                                                                                                                                                                                    if (_internal_LoadRRS1(s)) then begin
                                                                                                                                                                                                                                        if (_internal_LoadRRS2(s)) then begin
                                                                                                                                                                                                                                            if (_internal_LoadRRS3(s)) then begin
                                                                                                                                                                                                                                                if (_internal_LoadRRS4(s)) then begin
                                                                                                                                                                                                                                                    if (_internal_LoadRRS5(s)) then begin
                                                                                                                                                                                                                                                        if (_internal_LoadRRS6(s)) then begin
                                                                                                                                                                                                                                                            if (_internal_LoadRRS7(s)) then begin
                                                                                                                                                                                                                                                                if (_internal_LoadRRS8(s)) then begin
                                                                                                                                                                                                                                                                    if (_internal_LoadRRS9(s)) then begin
                                                                                                                                                                                                                                                                        if (_internal_LoadRRS10(s)) then begin
                                                                                                                                                                                                                                                                            if (_internal_LoadRRSCRC(s)) then begin
                                                                                                                                                                                                                                                                                if (_internal_LoadBLenO(s)) then begin
                                                                                                                                                                                                                                                                                    if (_internal_LoadBLenF(s)) then begin
                                                                                                                                                                                                                                                                                        if (_internal_LoadBLenW(s)) then begin
                                                                                                                                                                                                                                                                                            if (_internal_LoadBLenW2(s)) then begin
                                                                                                                                                                                                                                                                                                if (_internal_LoadCLenO(s)) then begin
                                                                                                                                                                                                                                                                                                    if (_internal_LoadCLenF(s)) then begin
                                                                                                                                                                                                                                                                                                        if (_internal_LoadCLenW(s)) then begin
                                                                                                                                                                                                                                                                                                            if (_internal_LoadCLenW2(s)) then begin
                                                                                                                                                                                                                                                                                                                if (DB_to_INT(pkVCF.numexp) > 0) then begin
                                                                                                                                                                                                                                                                                                                    _internal_LoadHYPER_VCF_EX(s);
                                                                                                                                                                                                                                                                                                                end;
                                                                                                                                                                                                                                                                                                                if (DB_to_INT(pkVCF.numins) > 0) then begin
                                                                                                                                                                                                                                                                                                                    _internal_LoadHYPER_VCF_IN(s);
                                                                                                                                                                                                                                                                                                                end;
                                                                                                                                                                                                                                                                                                                if (DB_to_INT(pkVCF.numvt) > 0) then begin
                                                                                                                                                                                                                                                                                                                    _internal_LoadHYPER_VCF_VT(s);
                                                                                                                                                                                                                                                                                                                end;
                                                                                                                                                                                                                                                                                                                _internal_RemoveTerminatore(s);
                                                                                                                                                                                                                                                                                                                Result := True;
                                                                                                                                                                                                                                                                                                            end;
                                                                                                                                                                                                                                                                                                        end;
                                                                                                                                                                                                                                                                                                    end;
                                                                                                                                                                                                                                                                                                end;
                                                                                                                                                                                                                                                                                            end;
                                                                                                                                                                                                                                                                                        end;
                                                                                                                                                                                                                                                                                    end;
                                                                                                                                                                                                                                                                                end;
                                                                                                                                                                                                                                                                            end;
                                                                                                                                                                                                                                                                        end;
                                                                                                                                                                                                                                                                    end;
                                                                                                                                                                                                                                                                end;
                                                                                                                                                                                                                                                            end;
                                                                                                                                                                                                                                                        end;
                                                                                                                                                                                                                                                    end;
                                                                                                                                                                                                                                                end;
                                                                                                                                                                                                                                            end;
                                                                                                                                                                                                                                        end;
                                                                                                                                                                                                                                    end;
                                                                                                                                                                                                                                end;
                                                                                                                                                                                                                            end;
                                                                                                                                                                                                                        end;
                                                                                                                                                                                                                    end;
                                                                                                                                                                                                                end;
                                                                                                                                                                                                            end;
                                                                                                                                                                                                        end;
                                                                                                                                                                                                    end;
                                                                                                                                                                                                end;
                                                                                                                                                                                            end;
                                                                                                                                                                                        end;
                                                                                                                                                                                    end;
                                                                                                                                                                                end;
                                                                                                                                                                            end;
                                                                                                                                                                        end;
                                                                                                                                                                    end;
                                                                                                                                                                end;
                                                                                                                                                            end;
                                                                                                                                                        end;
                                                                                                                                                    end;
                                                                                                                                                end;
                                                                                                                                            end;
                                                                                                                                        end;
                                                                                                                                    end;
                                                                                                                                end;
                                                                                                                            end;
                                                                                                                        end;
                                                                                                                    end;
                                                                                                                end;
                                                                                                            end;
                                                                                                        end;
                                                                                                    end;
                                                                                                end;
                                                                                            end;
                                                                                        end;
                                                                                    end;
                                                                                end;
                                                                            end;
                                                                        end;
                                                                    end;
                                                                end;
                                                            end;
                                                        end;
                                                    end;
                                                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
            end;
        end;
    end;
end;