Sql upit i listbox

Code:

...
Var
  i: integer;
  s: string;
...

  with dm.tableracun do begin
     // Upit: ako uzimas polja iz samo jedne tabele ne treba ti ono r.XXXX
    sql.text:=' select naziv, datum, vrijeme, kolicina ' +
      'from racun' ;

    Open;
    // Onemogucavamo prikaz izmena na ekranu dok popunjavamo list box
    // kako bi rad bio sto brzi
    ListBox1.Items.BeginUpdate; 
    DisableControls;
    try
      while not eof do begin
        for i:= 0 to Fields.Count-1 do
          s:= s+', '+Field[i].DisplayText;
        ListBox1.Items.Add(s); // Dodajemo jedan red u listbox
        Next;
      end;
     finally
       // Ukljucujemo prikaz
       ListBox1.Items.EndUpdate;
       EnableControls;
     end;
  end;