Summieren von Datensätzen!!

[Cancer]

Also Leutz HI
Und zwar habe ich folgenden Code gefunden.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var gesamtzahl: integer;
begin
  // Verhindern, dass die Anzeige ständig aktualisiert wird:
  Table1.DisableControls;
  Table1.first;
  gesamtzahl:=0;
  while not Table1.eof do begin
    if Table1.FieldByName('Artikel').AsString='Radiergummi' then
      gesamtzahl:=gesamtzahl+Table1.FieldByName('Anzahl').AsInteger;
    Table1.next;
  end;
  Table1.EnableControls;
  Label1.Caption:='Radiergummis: '+IntToStr(gesamtzahl);
end;

Wie kann ich diesen Code jetzt so ändern das, das Programm mir eine Ausgabe macht wie oft jetzt das Wort Radiergummi in der DB vorkommt??