чтение бинарного файла

[Snake22]

Здравствуйте программисты. сам я в хексе,в чтении блоков файлов через дельфи почти не шарю,нужна помощь.
значит так, есть бинарный файл (контейнер) который содержит в себе другие файлы. (mif файл,содержит в себе 5 типов файлов: svg, svgb(сжатый svg),svgz(gzip), nvg и png)
нужно извлеч эти файлы.
Если посомтреть через хекс редактор,то там заметил что перед началом каждого файла есть символы (в текстовом виде C##4. В 16тиричном: 43 23 23 34 ),после этих цифр через несколько блоков начинаетс сам файл который надо извлеч. и так перед каждым файлом в бинарнике.
Также известны первые 8байт с которых начинается извлекаемый файл каждого типа, при этом файл svgb может начинаться с одной из 4х последовательностей байт:

const
      KBinaryFile1 = #$CC#$56#$FA#$03; //svgb
      KBinaryFile2 = #$CD#$56#$FA#$03; //svgb
      KBinaryFile3 = #$CE#$56#$FA#$03; //svgb
      KBinaryFile4 = #$CF#$56#$FA#$03; //svgb
      SVGZ_ENTRY_SIGNATURE = #$1F#$8B#$08#0; // GZip Prefix
      PNG_ENTRY_SIGNATURE = #137'PNG'; //PNG
      NVG_ENTRY_SIGNATURE = 'nvg'; //NVG
     //простой SVG идёт в обычном виде и определяется по xml заголовку "<?xml"

Помогите пожалуйста реализовать всё это в программу?
сам уже по этому делу немножко изучил как открыть файл,считать байт,переместить позицию в файле...но этого мало.
Я так понял для начала нужно следующее:
Найти позицию первого файла по заданным выше байтам, и дальше идти по файлу до тех пор пока не найдется позиция следующий файл.и теперь копируем первый файл от той позиции где начали до той где остановились. и дальше тоже самое для следующего файла...
Как же найти эту позицию начала первого файла и его длинну, и следующих?

И еще,для проверки определения какое должно быть расширение у файла на выходе,такую функцию мне написали:

type TMifFormat = (mfUnknown, mfSVG, mfSVGB, mfSVGZ, mfNVG, mfPNG, mfDAT,
mfMbmLink);

function MifEntryType(const MifEntryHeaderStr: ShortString): TMifFormat;//Здесь MifEntryHeaderStr - ANSI строка из 8 символов.
var TmpStr: ShortString;
begin
  result:=mfDAT; // unknown yet format, will be extracted with .dat extension
  TmpStr:=Copy(MifEntryHeaderStr, 1, 4);
  if (TmpStr=KBinaryFile1) or (TmpStr=KBinaryFile2) or
    (TmpStr=KBinaryFile3) or (TmpStr=KBinaryFile4) then
  result:=mfSVGB
  else
  if TmpStr=SVGZ_ENTRY_SIGNATURE then
  result:=mfSVGZ
  else
  if TmpStr=PNG_ENTRY_SIGNATURE then
  result:=mfPNG
  else
  if Copy(MifEntryHeaderStr, 1, 3)=NVG_ENTRY_SIGNATURE then
  result:=mfNVG
  else
  if (Copy(MifEntryHeaderStr, 1, 5)='<?xml') or
(MifEntryHeaderStr=#$EF#$BB#$BF'<?xml') or
    (TmpStr='<svg') then
  result:=mfSVG;
end;

[Slym]

это оно http://mitab.maptools.org/?