function TP2KAPI.FlashErase2(Addr: dword; Size: dword): boolean;
var
  cmd: shortstring;
  HexAddr:string[8];
  HexSize:string[8];
begin
  result:= false;
  HexAddr:= IntToHex(Addr, 8);  
  HexSize:= IntToHex(Size, 8);
  cmd:= 'ERASE'+ #$1E + HexAddr + ',' + HexSize;
  cmd:= FlashCmd(cmd);
  cmd:=trim(cmd);
  if Pos('ERR', cmd) <= 0 then result:=true else result:=false;
end;