procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if xMMAUCPBuffer <> nil then FreeMem(xMMAUCPBuffer);
xPL.Free;
xKJ.Free;
xMel.Free;
xMelAlarm.Free;
xMelCard.Free;
  mStr.Free;
  iStr.Free;
  identStr.Free;
  xJavaAvailable.Free;

try
  xCom_Port.Free;
  if IsATConnected then
    begin
      try
        DisconnectingAT;
      except
      end;
    end;
  try
    if xComPort <> nil then xComPort.Free;
  except
  end;
  {
  if IsP2KConnected then
    begin
      try
        if iCloseP2K = 1 then p2k.Close;
      except
      end;
    end;
  }
//если открыт OBEX, то закрыть
  if IsOBEXConnected then begin
                            try
                              frmOBEXFM.OBEX_Disconnect;
                              frmOBEXFM.VaComm1.Close;
                              //
                              frmOBEXFM.UnPrepareOBex;
                            except
                            end;
                          end;
  try
    //frmOBEXFM.UnPrepareOBex;
    //P2K.Free;
    if P2K <> nil then begin p2k.close; P2K.Destroy; end;
  except
  end;
  try
    if XML_Data <> nil then begin XML_Data.Free; XML_Data:= nil; end;
  except end;
  try
    if xGainBuffer <> nil then begin FreeMem(xGainBuffer); xGainBuffer:= nil; end;
  except end;
  try
    if xParamBuffer <> nil then begin FreeMem(xParamBuffer); xParamBuffer:= nil; end;
  except end;
  try
    if xProfList <> nil then begin xProfList.Free; xProfList:= nil; end;
  except end;
except
  showmessage('***');
end;
spSkinData1.CompressedStoredSkin:= nil;
end;