Складывание чисел

int sum=0,kol=o;
void __fastcall TForm1::Button1Click(TObject *Sender) 
{sum=+StrToInt(Edit1->Text);//если оценки вводишь в один и тот же Edit1 поочерёдно.  
kol++;//кол-во оценок
Edit2->Text=IntToStr(sum/kol);//выводим среднее арифметическое
}

RichEdit1->Lines->SaveToFile("1.txt");

int result = 4;
TStringList *result_list = new TStringList;
result_list->Add(IntToStr(result));

int result = 5;
result_list->Add(IntToStr(result));
result_list->SaveToFile("resuil.txt"); // не запутаться бы в результах :)

TStringList *result_list = new TStringList;
result_list->LoadFromFile("resuil.txt"); // не запутаться бы в результах :)
int i,j;
for (i=0;i<result_list->Count;i++) {
  j += StrToInt(result_list->Strings[i]);
}
j = j/result_list->Count;
AnsiString average = IntToStr(j);
ShowMessage("Средний результат = "+average);