procedure TfrmFlash_SHX.SplitMBF;
var
  frmProgress: TfrmProgress;
  fName: string;
  //CGStartAddr: TArrCGAddr;
  CGStartAddrFName: TArrCGAddrFName;
  i, k: integer;
begin
  SaveDialog1.DefaultExt:= '*.smg';
  SaveDialog1.FileName:= ExtractFilePath(spSkinEdit4.Text) + DateToStr(Now) + '.smg';
  SaveDialog1.Filter:= 'smg files|*.smg|bin files|*.bin';

  SaveDialog1.FilterIndex:= 1;
  //SaveDialog1.Title:= 'Конвертирование файла прошивки ...';
  SaveDialog1.Title:=  fl_shx_t_text06;
  if not SaveDialog1.Execute then exit;
  screen.Cursor:= crHourGlass;
  fName:= SaveDialog1.FileName;
  ParseRevers(fName, '.');
  //FillMemory(@CGStartAddr, SizeOf(TArrCGAddr), 0);
  FillMemory(@CGStartAddrState, SizeOf(TArrCGAddrState), 0);
  SetCGStartAddrState(CGStartAddrState);
  for i:= 0 to 25 do CGStartAddrFName[1, i]:= 'Unknown';
  for i:= 0 to 25 do CGStartAddrFName[2, i]:= 'Unknown';
  frmProgress:= TfrmProgress.Create(Self);
  frmProgress.AdvProgressBar2.Visible:= false;
  frmProgress.GradientLabel2.Visible:= false;
  //frmProgress.GradientLabel1.Caption:= 'Конвертирование ...';
  frmProgress.GradientLabel1.Caption:= fl_shx_t_text07;
  frmProgress.Show;
  frmProgress.Update;
  try
    MBF2BIN(spSkinEdit4.Text , fName, CGStartAddr, CGStartAddrState, CGStartAddrFName, frmProgress);
    //отредактировать ramldr
    FixRamDownLoader(CGStartAddrFName[2, 0], CGStartAddr, CGStartAddrState);
    // отредактировать header    
  finally
    screen.Cursor:= crDefault;
    frmProgress.Free;
  end;
end;