procedure Tfrm_CheckCloth.cnrs232ReceiveData(Sender: TObject; Buffer: Pointer;

   BufferLength: Word);

   var

     MyRcvData:Array[..] of byte;

     ChkStr:string;

     tmp : Integer;

 begin

      move(buffer^,pchar(@MyRcvData)^,);

     //  ChkStr :=  inttostr(MyRcvData[]* +MyRcvData[]) + inttostr(MyRcvData[]* +MyRcvData[]);

     ChkStr := Format('%0.2x%0.2x%0.2x%0.2x', [MyRcvData[3], MyRcvData[4],MyRcvData[5],MyRcvData[6]]);

      try

        tmp := strtoint('$'+ChkStr);

      except

        tmp := ;

      end;

      GetRS232DateLen :=Format( '%.2f',[(tmp)/]);

  end;