Creo que lo quieres es esto:
Código Delphi
[-]Var
nCuantos:Integer;
begin
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select count * from Pedidos,Clientes where id.pedido=id.cliente);
Query1.Open;
nCuantos:=Query1.Fields[0].AsInteger;
end;
Un Saludo.