Пояснение:

var

  qr: tquery;

...

qr := tquery.create(nil);

with qr do begin

  databasename := 'restdata';

  sql.text := 'select * from users';

  <разхождане из записите>

  showmessage(inttostr(recordcount)); // показва -1

  free;

end;

qr.Databasename := 'restdata';

qr.sql.text := 'select * from users';