Citanje poslednjih bajtova iz fajla...

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;