Как подсчитать сумму цифр в столбце и вывести их в Edit

[Hobbit_88]

А у меня в зависимости от колчиства строк столько раз и считается первая строка.
Использую этот же код.

[Neeter]

Точно, забыл дописать. Вот, замените код:

var
 i: integer;
 sum: integer;
begin
 Edit1.Text := '';
 if Table1.RecordCount <> 0 then
 begin
  Table1.First;
  for i := 0 to Table1.RecordCount - 1 do
   if not Table1.FieldByName('Имя третьего столбца').IsNull then
   begin
    sum := sum + Table1.FieldByName('Имя третьего столбца').AsInteger;
    Table1.Next;
   end;
  Edit1.Text := IntToStr(sum);
 end;
end;

[Hobbit_88]

Точно спасибо!