UpdateResource ByteArray Größe

[SyntaxXx]

Guten Abend,

ich arbeite seit längerem mit der Windows API und beschäftige mich derzeit mit der Funktion "UpdateResource".
Jetzt möchte ich einen String als Resource speichern.

Hier erstmal mein Code:

Delphi-Quellcode:

function ImportResource(pFileName: LPCTSTR; lpName :LPCTSTR; lpData: LPVOID; cbData: DWORD): boolean;
var hResourceHandle: THandle;
begin
  hResourceHandle := BeginUpdateResource(pFileName, False);
  Result := UpdateResource(hResourceHandle, MakeIntResource(10), lpName, 0, lpData, cbData);
  EndUpdateResource(hResourceHandle, False);
end;

procedure TForm1.Button2Click(Sender: TObject);
var bArray: Array of byte;
    FileStream: TFileStream;
    fSize: integer;
begin

  try
    try
      FileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
    except
      on E:Exception do
        showMessage(E.Message);
    end;
    setLength(bArray, FileStream.Size);
    FileStream.seek(0,soFromBeginning);
    FileStream.ReadBuffer(bArray[0], FileStream.Size);
    fSize := FileStream.Size;
  finally
    FileStream.Free;
  end

  ImportResource('Test.exe', 'TEST', bArray, fSize);

end;

So jetzt habe ich hier eine Textdatei, welche 3kb groß ist.
Wenn ich diese auswähle, dann wird der Inhalt in die Test.exe geladen.
Alles super und das Tool ResourceHacker zeigt mir den Inhalt perfekt an.

Doch sobald die Textdatei größer als 5kb ist, wird der Inhalt nurnoch Teilweise kopiert.
Und wenn ich die Test.exe dann mit dem ResourceHacker öffne, dann wird mir gesagt:
"This file has a non-standart resource layout"

Woran kann das liegen?

In der Textdatei befindet sich nur eine Reihe an Rautezeichen.
War nur zu Testzwecken.