unit ExchangeFormIDs;

var
  slFormIDMap: TStringList;
  cca: IInterface; 

function FileByName(s: string): IInterface;
var
  i: integer;
begin
  Result := nil;
  for i := 0 to Pred(FileCount) do
    if GetFileName(FileByIndex(i)) = s then begin
      Result := FileByIndex(i);
      Exit;
    end;
end;

function Initialize: Integer;
var
  sLoadOrderPrefix: String;
begin
  cca := FileByName('Common Clothes and Armors.esp');
  if not Assigned(cca) then begin
    AddMessage('Error: "Common Clothes and Armors.esp" is not loaded.')
    Result := -1;
    Exit;
  end;
  sLoadOrderPrefix := IntToHex(GetLoadOrder(cca), 2);

  slFormIDMap := TStringList.Create;
  slFormIDMap.Sorted := True;
  slFormIDMap.Add(Format('%0:s000D63=%0:s000800', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D64=%0:s000801', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D65=%0:s000802', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D66=%0:s000803', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D67=%0:s000804', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D69=%0:s000805', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D6D=%0:s000806', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F6A=%0:s000807', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F6B=%0:s000808', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F73=%0:s000809', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F74=%0:s00080A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F75=%0:s00080B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F76=%0:s00080C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F77=%0:s00080D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018653=%0:s00080E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018654=%0:s00080F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018655=%0:s000810', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018656=%0:s000811', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018657=%0:s000812', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D70=%0:s000813', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D71=%0:s000814', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D72=%0:s000815', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D73=%0:s000816', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D74=%0:s000817', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D75=%0:s000818', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D76=%0:s000819', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D77=%0:s00081A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D78=%0:s00081B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D79=%0:s00081C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00337F=%0:s00081D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003380=%0:s00081E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01866E=%0:s00081F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01866F=%0:s000820', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018670=%0:s000821', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018671=%0:s000822', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018672=%0:s000823', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018673=%0:s000824', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018674=%0:s000825', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018675=%0:s000826', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018676=%0:s000827', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018677=%0:s000828', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s015EB4=%0:s000829', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s015EB5=%0:s00082A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s015EB6=%0:s00082B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s015EB7=%0:s00082C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s015EB8=%0:s00082D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s015EB1=%0:s00082E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s015EB2=%0:s00082F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s015EB3=%0:s000830', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D68=%0:s000831', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D6A=%0:s000832', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012F6=%0:s000833', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012F7=%0:s000834', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D6E=%0:s000835', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D6F=%0:s000836', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F65=%0:s000837', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F66=%0:s000838', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F67=%0:s000839', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D6B=%0:s00083A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D6C=%0:s00083B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018658=%0:s00083C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018659=%0:s00083D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01865A=%0:s00083E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01865B=%0:s00083F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012F4=%0:s000840', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012F5=%0:s000841', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012F1=%0:s000842', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012F2=%0:s000843', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012F3=%0:s000844', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003E83=%0:s000845', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D7A=%0:s000847', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D7B=%0:s000846', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D7C=%0:s000849', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D81=%0:s000848', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D7D=%0:s00084B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D82=%0:s00084A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D7E=%0:s00084D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D83=%0:s00084C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D7F=%0:s00084F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D80=%0:s00084E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003337=%0:s000850', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:sDA0C71=%0:s000851', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s004370=%0:s000852', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:sDA0C77=%0:s000853', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0063DA=%0:s000854', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0063DB=%0:s000855', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005900=%0:s000856', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:sDA0C72=%0:s000857', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0048D3=%0:s000858', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0063DD=%0:s000859', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s006EB3=%0:s00085A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s006EB4=%0:s00085B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0063DC=%0:s00085C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005901=%0:s00085D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s007983=%0:s00085E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s006EB5=%0:s00085F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s006EB2=%0:s000860', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E66=%0:s000861', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s004E3B=%0:s000862', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012CC=%0:s000863', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:sDA0C76=%0:s000864', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003E06=%0:s000865', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s007981=%0:s000866', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012EF=%0:s000868', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:sDA0C75=%0:s000869', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E64=%0:s00086A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012F0=%0:s00086B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089AD=%0:s00086C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003336=%0:s00086D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D84=%0:s00086E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0063DE=%0:s000870', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:sDA0C74=%0:s000871', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001D9A=%0:s000872', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F61=%0:s000873', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F62=%0:s000874', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F68=%0:s000875', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012E9=%0:s000876', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012EE=%0:s000877', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s007982=%0:s000878', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:sDA0C73=%0:s000879', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003E05=%0:s00087A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012E8=%0:s00087B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F69=%0:s00087C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012E7=%0:s00087D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012ED=%0:s00087E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s006EB6=%0:s000881', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012EC=%0:s000882', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E65=%0:s00087F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003335=%0:s000880', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s000D62=%0:s000883', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00185A=%0:s000884', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00185B=%0:s000885', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00185C=%0:s000886', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00185D=%0:s000887', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00185F=%0:s000888', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001863=%0:s000889', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F71=%0:s00088A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F72=%0:s00088B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F78=%0:s00088C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F79=%0:s00088D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F7A=%0:s00088E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F7B=%0:s00088F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F7C=%0:s000890', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018664=%0:s000891', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018665=%0:s000892', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018666=%0:s000893', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018667=%0:s000894', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018668=%0:s000895', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DED=%0:s000896', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DEE=%0:s000897', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DEF=%0:s000898', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DF0=%0:s000899', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DF1=%0:s00089A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DF2=%0:s00089B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DF3=%0:s00089C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DF4=%0:s00089D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DF5=%0:s00089E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DF6=%0:s00089F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003381=%0:s0008A0', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003382=%0:s0008A1', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01866D=%0:s0008A2', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018678=%0:s0008A3', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018679=%0:s0008A4', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01867A=%0:s0008A5', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01867B=%0:s0008A6', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01867C=%0:s0008A7', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01867D=%0:s0008A8', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01867E=%0:s0008A9', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01867F=%0:s0008AA', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018680=%0:s0008AB', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01865F=%0:s0008AC', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018660=%0:s0008AD', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018661=%0:s0008AE', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018662=%0:s0008AF', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018663=%0:s0008B0', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01865C=%0:s0008B1', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01865D=%0:s0008B2', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01865E=%0:s0008B3', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00185E=%0:s0008B4', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001860=%0:s0008B5', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DE3=%0:s0008B6', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DE4=%0:s0008B7', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001864=%0:s0008B8', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001865=%0:s0008B9', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F6C=%0:s0008BA', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F6D=%0:s0008BB', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F6E=%0:s0008BC', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001861=%0:s0008BD', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001862=%0:s0008BE', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s018669=%0:s0008BF', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01866A=%0:s0008C0', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01866B=%0:s0008C1', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01866C=%0:s0008C2', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DE1=%0:s0008C3', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DE2=%0:s0008C4', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DDE=%0:s0008C5', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DDF=%0:s0008C6', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DE0=%0:s0008C7', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003E84=%0:s0008C8', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001866=%0:s0008CA', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00186B=%0:s0008C9', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001867=%0:s0008CC', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00186C=%0:s0008CB', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001868=%0:s0008CE', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00186D=%0:s0008CD', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001869=%0:s0008D0', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00186E=%0:s0008CF', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00186A=%0:s0008D2', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00186F=%0:s0008D1', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00333A=%0:s0008D3', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012D4=%0:s0008D4', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00436F=%0:s0008D5', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012CD=%0:s0008D6', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0063DF=%0:s0008D7', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0063E0=%0:s0008D8', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E67=%0:s0008D9', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012D2=%0:s0008DA', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0048D4=%0:s0008DB', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0063E2=%0:s0008DC', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00741A=%0:s0008DD', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00741B=%0:s0008DE', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0063E1=%0:s0008DF', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E68=%0:s0008E0', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s007985=%0:s0008E1', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00741C=%0:s0008E2', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s007419=%0:s0008E3', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E6B=%0:s0008E4', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s004E3A=%0:s0008E5', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012D5=%0:s0008E6', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012CE=%0:s0008E7', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003E07=%0:s0008E8', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s007980=%0:s0008E9', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001879=%0:s0008EB', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012CF=%0:s0008EC', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E69=%0:s0008ED', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00187A=%0:s0008EE', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089AC=%0:s0008EF', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003339=%0:s0008F0', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001870=%0:s0008F1', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0063E3=%0:s0008F3', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012D0=%0:s0008F4', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012D3=%0:s0008F5', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00A4DC=%0:s000939', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00A4D4=%0:s00093A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00A4DA=%0:s00093B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00A4D5=%0:s00093C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00A4D7=%0:s00093D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00A4D6=%0:s00093E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00A4DB=%0:s00093F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00A4D8=%0:s000940', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00A4D9=%0:s000941', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DDD=%0:s000942', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DE7=%0:s000943', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DE5=%0:s000944', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DE6=%0:s000945', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s02251C=%0:s000946', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s02251E=%0:s000947', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s022521=%0:s000948', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s022522=%0:s000949', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s022520=%0:s00094A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s022523=%0:s00094B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s02251D=%0:s00094C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s02251B=%0:s00094D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s02251F=%0:s00094E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s022524=%0:s00094F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00C021=%0:s000950', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00C022=%0:s000951', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00C020=%0:s000952', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s022528=%0:s000953', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DE8=%0:s000954', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001DE9=%0:s000955', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:sDA0C7D=%0:s000956', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:sDA0C7E=%0:s000957', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F63=%0:s0008F6', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F64=%0:s0008F7', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F6F=%0:s0008F8', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001873=%0:s0008F9', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001878=%0:s0008FA', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s007984=%0:s0008FB', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003E08=%0:s0008FC', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0012D1=%0:s0008FD', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001872=%0:s0008FE', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s010F70=%0:s0008FF', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001871=%0:s000900', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001877=%0:s000901', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00741D=%0:s000904', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s001876=%0:s000905', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E6A=%0:s000902', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003338=%0:s000903', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003340=%0:s000906', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00230D=%0:s000907', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0048D6=%0:s000908', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s002306=%0:s000909', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00694B=%0:s00090A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00694C=%0:s00090B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E73=%0:s00090C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00230B=%0:s00090D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0048D7=%0:s00090E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00694E=%0:s00090F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089BA=%0:s000910', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089BB=%0:s000911', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00694D=%0:s000912', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E75=%0:s000913', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089BE=%0:s000914', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089BC=%0:s000915', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089B9=%0:s000916', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E77=%0:s000917', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E72=%0:s000918', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00230E=%0:s000919', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s002307=%0:s00091A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003E0C=%0:s00091B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089BD=%0:s00091C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0033B7=%0:s00091E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s002308=%0:s00091F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E74=%0:s000920', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0033B8=%0:s000921', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089BF=%0:s000922', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00333F=%0:s000923', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01D5B6=%0:s000924', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00694F=%0:s000926', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s002309=%0:s000927', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00230C=%0:s000928', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01D5B9=%0:s000929', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01D5BA=%0:s00092A', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01D5BB=%0:s00092B', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0033BC=%0:s00092C', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0033BE=%0:s00092D', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089B8=%0:s00092E', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00230A=%0:s00092F', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s003E0B=%0:s000930', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0033BB=%0:s000931', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s01D5BC=%0:s000932', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0033BA=%0:s000933', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0033BD=%0:s000934', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0089B7=%0:s000937', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s0033B9=%0:s000938', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s005E76=%0:s000935', [sLoadOrderPrefix]));
  slFormIDMap.Add(Format('%0:s00333E=%0:s000936', [sLoadOrderPrefix]));
end;


function Process(e: IInterface): Integer;
var
  i, oldFormID, newFormID: Cardinal;
  sOldFormID, sNewFormID: String;
begin
  if Equals(GetFile(e), cca) then begin
    oldFormID := GetLoadOrderFormID(e);
    sOldFormID := IntToHex(oldFormID, 8);
    i := slFormIDMap.IndexOfName(sOldFormID);
    if i <> -1 then begin
      sNewFormID := slFormIDMap.ValueFromIndex[i];
      newFormID := StrToInt('$' + sNewFormID);
      while ReferencedByCount(e) > 0 do
        CompareExchangeFormID(ReferencedByIndex(e, 0), oldFormID, newFormID);
      while OverrideCount(e) > 0 do
        SetLoadOrderFormID(OverrideByIndex(e, 0), newFormID);
      SetLoadOrderFormID(e, newFormID);
    end;
  end;
end;


function Finalize: Integer;
begin
  slFormIDMap.Free;
end;

end.