En lo personal lo manejo asi, solo por costumbre ya que la respuesta de marcoszorrilla, es muy buena, esto es solo otra opcion
, Saludos.
Código Delphi
[-]
Var
Cuantos:Integer;
Begin
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select Count(*) as contados From Clientes');
Query1.Open
Cuantos:=Query1.FieldByName('contados').Value;
end;