[Casimiro Notevi]

Si tienes una conexión a la BD, sería más o menos:

Código Delphi [-]
IBQuery.Close;
IBQuery.SQL.Text := 'SELECT COUNT(*) FROM ' + nombreTabla;
IBQuery.Open;
Result := IBQuery.Fields[0].AsInteger;
IBQuery.Close;