delphi

mam eno podatkovno bazo v accesu pa bi rad da mi v labelo izpiše kok mam vseh zapisov v bazi, pa bi prasu kaj je s tem narobe, oziroma kako je prav, ce bi kdo vedu da mi pr8 pove

procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.sql.clear;
adoquery1.SQL.add('select * from racuni');
adoquery1.open;
adoquery1.first;
label8.caption := adoquery1.sql.add('select count(id) from racuni').asstring;
end;


hvala

 label8.caption := IntToStr(adoquery1.RecordCount) 

Samo moras uporabljat client-side kurzorje

/typo