Code:
procedure RemoveLastTwoBytes(const AFile: String);
var
fstream: TFileStream;
buffer : array[0..1] of Byte;
begin
fstream := TFileStream.Create(AFile, fmOpenReadWrite or fmShareDenyNone);
try
fstream.Seek(-2, soFromEnd);
fstream.ReadBuffer(buffer[0], 2);
if (buffer[0] = $15) and
(buffer[1] = $24) then
fstream.Size := fstream.Size - 2;
finally
fstream.Free;
end;
end;