procedure TfrmFlash_SHX.SaveFirmwareAs;
var
  i: integer;
  fName: string;
  str: string;
begin
  if spSkinListView1.Items.Count <= 1 then exit;
  i:= 0;
  SaveDialog1.DefaultExt:= '*.sbf';
  SaveDialog1.Filter:= 'shx files|*.shx|sbf files|*.sbf|mbf files|*.mbf';

  //SaveDialog1.FilterIndex:= 2;
  if not SaveDialog1.Execute then exit;
  fName:= SaveDialog1.FileName;
  str:= fName;
  str:= ParseRevers(str,  '.');
  if ansilowercase(str) = 'shx' then i:= 0
  else if ansilowercase(str) = 'sbf' then i:= 1
  else if ansilowercase(str) = 'mbf' then i:= 2
  else i:= 255;
  BuildFirmWareFile(fName, i);
end;