[Qwed86]

Это через ADO

Код:

label1.Caption:='Кол-во строк = '+IntToSt(ADOQuery1.RecordCount);