Du liest den Header ja nirgends aus bzw. weißt deinem
var
Parameter niemals einen Wert zu.
Außerdem:
Delphi-Quellcode:
for IntI := Low(ByteArray) to High(ByteArray) do
begin
if (ByteArray[IntI] * 4) = StrToInt('ANIM') then
Result := True
end;
Was soll dieser Code bewirken?
Ich kann nur sagen, dass
StrToInt('ANIM')
schonmal definitiv eine
Exception schmeißen wird.