Código Delphi
[-]Var
xx:Integer;
Begin
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select Count(*) From Clientes');
Query1.Open
xx:=Query1.Fields[0].AsInteger;
Nota:Por ejemplo en Firebird para que te funcione
RecordCount, tienes que situarte en el último registros. (Last).
Un Saludo.