procedure TfrmFlash_Work_with_POG.spSkinSpeedButton12Click(Sender: TObject);
var
  fName, xStart: string;
  s: string;
begin
  if not Form1.IsFlashConnected then exit;
  // create Mem_map blank
  fName:= ExePath + 'Flash\MEM_MAP_Blank';
  if not FileExists(fname) then exit;
  xStart:= '10040000';
  if USB_LocationName = MotFlashRainbowPOG
  then begin
         s:= fp_m_text02 + #13#10 + fp_m_text03;
         Form1.spSkinMessage1.MessageDlg(s, mtWarning, [mbYes, mbNo], 0);
       end
  else if USB_LocationName = MotBlankRainbowPOG
  then POG_UpLoadMemory(xStart, FName);
end;