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.

[Sir Rufo]

Hat zwar jetzt nicht direkt was mit der Frage zu tun, aber das schmerzt in den Augen.

Bitte so, dann funktioniert das auch, wie du dir das gedacht hattest (im Fehlerfall)

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var bArray: Array of byte;
    FileStream: TFileStream;
    fSize: integer;
begin
  FileStream := TFileStream.Create(Edit1.Text, fmOpenRead);
  try
    fSize := FileStream.Size;
    setLength(bArray, fSize);
    FileStream.seek(0,soFromBeginning);
    FileStream.ReadBuffer(bArray[0], fSize);
  finally
    FileStream.Free;
  end

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

end;

[SyntaxXx]

Danke schonmal dafür xD
Wenn mir aber jetzt noch jemand die Lösung meines Problems nennen könnte wäre das super xD