Вопросы по создание программы "Учёта личных финансов"

Всем доброго времени суток... Хочу написать програмку что-то типо "Учёта личных финансов".... Добавление, удаление, пронумеровку строк столбцов, сохранение, загрузка сделал...

1) Как сделать чтоб складывалась каждая строчка и записывалась в последнию ячейку!??!

Код:

procedure TFinance.btCountClick(Sender: TObject);

var

i,sum: Integer;

begin

for i:=1 to sgFinans.RowCount do

sum:=StrToInt(sgFinans.Cells[1, i])+StrToInt(sgFinans.Cells[1,i+1]);

sgFinans.Cells[1,6]:= IntToStr(sum)+'руб.'

В этом случаи проект работает, но при нажатии на кнопку вылетает...

2) Как можно сделать, чтоб значение определённой ячейки показывалось в Edit?!?!

3) Если в ячейке написана ссылка на сайт пользователем программы, то как её превратить в гиперсылку (т.е. при нажатии на ячейку с ссылкой Delphi переходила на этот сайт)?!?!

Код:

if StringGrid1.Selection.Left = 10 then

if StringGrid1.Cells[10, StringGrid1.Selection.Top] <> '' then

WinExec(PChar(StringGrid1.Cells[10, StringGrid1.Selection.Top]), SW_NORMAL);

По идее это должно работать, но у меня не открывает страницу...