pętla+DBGrid

Witam

Mam oto taka pętle:

Table.First;
while not table.Eof do
begin
Application.ProcessMessages;
A := Table.FieldbyName('Wartość').AsString;
if A<>''then
begin
q:=StrToFloat(A); war :=war+q;
end;
table.Next;
end;
....

Tabele jest podpiętą pod DBGrid. Powyższy kod odczytuje wszystkie rekordy z tabeli.
Podczas wykonywania pętli w komponencie DBGRid jest po kolei zaznaczany każdy rekord aż do
ostatniego. Podpowie ktoś jak zrobić żeby podczas odczytywania w petli komponent dbGrid nie
przechodził do każdego rekordu po kolei ???

Trzeba uzyc mozgu i poszukac. Table.EnableControls / Table.DisableControls.

Wiesz co Bobik nie jestem zbytnio mocny w tym temacie , dopiero zaczynam wsumie i dlatego nie wiedziałem zbytnio czego konkretnie mam szukać, a szukałem uwierz :| Forum jest po to żeby zadać pytanie jeżeli zaistnieje taka potrzeba... wnioskując po twojej odpowiedzi uważasz ze nie używam mózgu. Ja natomiast myślę ze nie powinieneś pozwalać sobie na takie osobiste wycieczki, i nie zachowuj sie jakbyś pozjadał wszystkie rozumy...grzecznie poprosiłem o pomoc, nic więcej ! Jak nie miałes ochoty sie podzielić swoją wiedzą trzeba było nie odpisywać.. a tak pokazałeś ze jesteś, delikatnie mówiąc nie wychowany i chamski. Szkoda mi takich ludzi ale cóż zawsze się znajdzie jakiś prymityw... :|

Forum jest po to aby najpierw poszukać i dopiero zadać pytanie jeśli nie znajdzie się odpowiedzi na nie. No ale dobra, może przesadziłem z tym mózgiem, ale jak się widzi poraz n-ty pytanie o to samo, to człowieka czasem ponosi. Mam wrażenie że tacy jak ty idą na łatwiznę ale to nie jest dobra droga do zdobywania wiedzy.

Proponuję takie rozwiązanie:

procedure TForm1.Button1Click(Sender: TObject);
begin
with IBQuery1, SQL do
begin
Close;
Clear;
Add('SELECT SUM (Pole1) FROM Your_table');
Open;
Edit1.Text:=IBQuery1.Fields[0].AsString;
end;
end;

Pozdrawiam