[lmikle]

Варианты:
1. Отдельным запросом

Код:

select sum(length) from table_name

2. "Пробежаться" по выборке и просуммировать.

Код:

var
  B : Pointer;
  S : Integer;
begin
  Query1.DisableControls;
  B := Query1.GetBookmark;
  Try
    Query1.First;
    S := 0;
    While Not Query1.Eof Do
      Begin
        S := S + Query1.FieldByName('length').AsInteger;
        Query1.Next;
      End;
    Query1.GotoBookmark(B);
    Query1.FreeBookmark(B);
  Finally
    Query1.EnableControls;
  End;
end;