function TfrmAT_DateBook.LockDateBook(YesNo: char): boolean;
var
  str: string;
begin
  result:= false;
  str:= Format('AT+MDBL=%s',[YesNo]);
  str:= SendATCommand(str);
  if (str = '') then result:= false
                else result:= true;
end;