procedure TForm1.SwitchToFlash;
var
  x: dword;
  str: shortstring;
label lbl_01;
begin
  if IsP2KConnected then
    begin
      SetStatusConnected(false, '');
      if p2k.Switch2Flash then begin

                                 IsFlashConnected:= true;
                               end
                          else begin
                               end;
      IsFlashConnected:= true;
      IsP2KConnected:= false;
    end
  else SwitchToP2K;
  SetStatusConnected(false, '');
  Application.ProcessMessages;
  //x:= 0;
  //CurrentP2KMode:= FlashMode;
  //x:=FindUSBInterface(MotFlashInt, $0002);
  //        if x > 0 then
  //          begin
  //            // интерфейс нашли
  //            HDev:= x;
  //            IsP2KConnected:= false;
  //            IsFlashConnected:= true;
  //            TelStatus:= true;
  //            CurrentP2KMode:= FlashMode;
  //          end;
  //if not IsFlashConnected then IsFlashConnected:= P2K.Switch2Flash;
  //if IsFlashConnected then
  //  begin
  //    SetStatusConnected(IsFlashConnected, '');
  //  end;
end;