void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int i=1,sum=0;
    while(i<=100)
    {
        sum = sum + i;
        i++;
    }
    Edit1->Text = IntToStr(sum);
}

我把楼上的代码稍作改动，即可得出正确的结果：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i=1,sum=0;
while(i<=101)
 {
   if(i%5==1)
      sum+=i;
   i++;
　}
Edit1->Text = IntToStr(sum);
}