BCB代码转换Delphi代码？？

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
int Sum(int);
AnsiString inputNumber=InputBox("数据输入","输入一个正整数","10");
int nNumber=StrToInt(inputNumber);
int total=0;
for (int i=1;i total +=Sum(i);
AnsiString output="总和为:"+IntToStr(total);
MessageBox(NULL,output.c_str(),"数据输入",MB_OK);
}
//---------------------------------------------------------------------------
int Sum(int n)
{
int total=0;
for(int i=1;i<=n;i++)
total +=i;
return total;
}

以下代码在Delphi7下调试通过

function Sum(n: Integer): Integer;
var
// 其实, Total可以直接换成Result, 且这里也不再需要声明他了

Total, i: Integer;
begin
Total := 0;
for i := 0 to n do
Total := Total+ i;
Result := Total;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
inputNumber, output: string;
nNumber, total, i: Integer;
begin
inputNumber := InputBox('数据输入', '输入一个正整数', '10');
nNumber := StrToInt(inputNumber);
total := 0;
for i := 0 to nNumber do
total := Sum(i);
output := '总和为:'+ IntToStr(total);
MessageBox(0, PChar(output), '数据输入', MB_OK);
end;

可以么？楼上的┞封位大年迈能帮我翻译一小段delphi情况下写的代码吗？翻译成c++builder情况下的代码帮协助吧我不懂delphi，可是我如今有一段delphi代码可能会解决我碰到的问题，我又看不懂，所以想请人帮我翻译成bcb的代码