49 for e:= Low(TEventId) to High(TEventId) do

    49 for e:= Low(TEventId) to High(TEventId) do

    50     first[e]:= true;

    50     first[e]:= true;

    51 

    51 

    52 f:= pfsOpenRead(FileName);

    52 f:= pfsOpenRead(FileName);

    53 TryDo(f <> nil, 'Cannot load locale "' + FileName + '"', false);

    53 TryDo(f <> nil, 'Cannot load locale "' + FileName + '"', false);

    54 

    56 

    55 if f <> nil then

    57 if f <> nil then

    56     begin

    58     begin

    57     while not pfsEof(f) do

    59     while not pfsEof(f) do

    58         begin

    60         begin