包含midaslib时会覆盖资源字符串表

Question

当我在我的uses子句中包含midaslib时，资源字符串表覆盖了＆＃39; 0：成功完成＆＃39;和15个空字符串。

我包含一个预编译的.Res文件。

原始测试程序：

program tesresources;

{$R BKHTEKSTEN.RES}

uses
  System.StartUpCopy,
  FMX.Forms,
  main in 'main.pas' {Form1};

  {$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
//Form1
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  astr:string;
begin
  MEMOtest.BeginUpdate;
  try
    MEMOtest.Lines.Clear;    
    MEMOTest.Lines.Add('Resourstrings : ');    
    for i := 0 to 255 do begin
      astr:=LoadStr(i);
      MEMOTest.Lines.Add(i.ToString+' : '+aStr);
    end;
  finally
    MEMOtest.EndUpdate;
  end;
end;

结果：

  

Resourstrings：0：1：Pingwin 5 - Fout！ 2：好的！ 3：Pingwin 5 -   Bericht！ 4：Kan bestand niet openen！ 5：Weet u het zeker？ 6：   Verwijderen！ 7：8：9：Opgelet：deze informatie gaat definitief   verloren !!! 10：11：Opgelet：Het geselecteerde Boekjaar zal   volledig verwijderd worden !!! 12：Opgelet：De BTW上市zal   definitief verwijderd worden !!! 13：Opgelet：Verwijderen van de   Ouderdomshistorieken !!! 14：Opgelet：Verwijderen van de Historieken   klanten / Leveranciers !!! 15：Opgelet：Deze Klant zal Definitief   verwijderd worden !!! 16：Opgelet：Deze Leverancier zal Definitief   Verwijderd worden !!! 17：Opgelet：Deze Contactinformatie zal   Definitief verwijderd worden !!!

当包含Midaslib时，资源字符串表会发生变化。

program tesresources;

{$R BKHTEKSTEN.RES}

uses
  System.StartUpCopy,
  FMX.Forms,
  midaslib,
  main in 'main.pas' {Form1};

  {$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

  

Resourstrings： 0：成功完成。 1：2：3：4：5：6   ：7：8：9：10：11：12：13：14：15：16：Opgelet：   Deze Leverancier zal Definitief Verwijderd worden !!! 17：Opgelet：   Deze Contactinformatie zal Definitief verwijderd worden !!!

查看.exe时，我发现两个字符串