//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "mchecksum.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm3::Edit1Change(TObject *Sender)
{
  char *cadena;
  cadena = Edit1->Text.c_str();
  int CHK, i;
  CHK = 0;
  for ( i=0; cadena[i] != NULL; i++ )
  {
    CHK += cadena[i];
  }

  Edit2->Text = AnsiString( ( CHK - ( (CHK / 10000)*10000 ) ) );

}
//---------------------------------------------------------------------------