请问我有六列数据，如何1列＋3列和2列＋4列比较大小，大则差值放5列，小则(45分)

请问我有六列数据，如何1列＋3列和2列＋4列比较大小，大则差值放5列，小则
差值放6列，这实际是财务汇总表，如何用编程实现？是用grid好，还是别的？

procedure TForm1.Button1Click(Sender: TObject);
var
i:word;
begin
Ini;//初始化stringgrid1过程
with stringgrid1 do
for i:=1 to rowcount-1 do
if (strToInt(cells[1, i])+strToInt(cells[3, i]))>(strToInt(cells[2, i])+strToInt(cells[4, i])) then
cells[5,i]:= IntToStr((strToInt(cells[1, i])+strToInt(cells[3, i]))-(strToInt(cells[2, i])+strToInt(cells[4, i])))
else
cells[6,i]:= IntToStr((strToInt(cells[2, i])+strToInt(cells[4, i]))-(strToInt(cells[1, i])+strToInt(cells[3, i])));
end;

多人接受答案了。